Uhm, really?

If you encode UTF-8 strings into perl's internal format, you don't need that kind of hack:

use Encode qw(encode decode);
my $str = # some input method here;
$str = encode("utf8", $str);
# do your pattern matching here

print decode("utf8", $str);
[download]

Or look

If you have non-ascii characters in the source of your script, use utf8;. And take a look at perluniintro and perlunicode.

Or in what way do utf-8 strings "break" without the string eval?