my $x = "foo à, è, ì, ò, ù bar";

$x =~ s/([\x00-\x1F\x7F-\xFF])/"\\'" .(unpack("H2",$1))/eg;

print $x;    # foo \'e0, \'e8, \'ec, \'f2, \'f9 bar