perl -Mencoding=latin1,STDOUT,utf8 -pe1