What are characters good for? 

say substr('€9.99', 1, 4);
say substr('£9.99', 1, 4);
say substr('$9.99', 1, 4);

��9.
�9.9
9.99