Select Code to Download

$ cat posix.pl 
#!/usr/bin/env perl 
...
Argument "Ì" isn't numeric in sprintf at ./posix.pl line 6.
abU+0000
$

#!/usr/bin/env perl 
use strict;
...
my $str = "ab\x{cc}";
$str =~ s/(\P{PosixPrint})/sprintf("U+%04X", ord $1)/eg;
print "$str\n";