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

##</code><code>##

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