Select Code to Download

use Modern::Perl;
use utf8;
...
$text =~ s/([\x00-\x1F\x7F-\xFF])/"\\'" .(unpack("H2",$1))/eg;

say $text;