while (<>) { $_ = Encode::decode_utf8( $_ ); binmode STDOUT, ":utf8";