in reply to Mass regsub on High-bit chars.

#!/usr/bin/perl
use warnings;
use strict;
my $c = '\x{92}\x{93}\x{94}';
$c =~ s/\\x\{(\d{2})\}/{chr(hex($1))}/ge;
print $c, $/;
__END__
'""

[download]

Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')

Don't fool yourself.

In Section Seekers of Perl Wisdom