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