in reply to Unicode operations

Efficient? Try running the script like this:
perl -MDevel::SimpleTrace sentence.pl

[download]
See Devel::SimpleTrace.

In Section Seekers of Perl Wisdom