What are characters good for? 

use utf8;

binmode(STDOUT, ':utf8');

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