in reply to How to replace extended ascii ctrs with \xnn strings?

use Encode;

my $s = join '', map chr(), 128 .. 255;

print Encode::decode(
    'ascii', $s, Encode::PERLQQ | Encode::LEAVE_SRC
);

[download]

In Section Seekers of Perl Wisdom