What are characters good for?
say
substr
(
'€9.99'
,
1
,
4
);
say
substr
(
'£9.99'
,
1
,
4
);
say
substr
(
'$9.99'
,
1
,
4
);