Select Code to Download

#!/usr/bin/perl
use strict;
...
while (<>) {
   print if !eval { decode('UTF-8', $_, Encode::FB_CROAK); 1 };
}

#!/usr/bin/perl
use strict;
...
binmode(STDIN,  ':encoding(UTF-8)');
binmode(STDOUT, ':encoding(iso-latin-1)');
print while <>;