Select Code to Download

#!/usr/bin/perl -l

...
my $safe = uri_escape($f);
my $str  = uri_unescape($safe);
print uri_unescape($str);

#!/usr/bin/perl -l

...
my $utf8 = decode( "Detect", $data );
binmode STDOUT, ":encoding(utf8)";
print "$utf8: Looks like utf8 to me";