use Encode;

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

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