binmode STDOUT; my $BOM = "\x{ef}\x{bb}\x{bf}"; print $BOM; while (<>) { from_to($_,"WINDOWS-1252","UTF-8", Encode::FB_QUIET); print; }