while (my $line = <>) { $line =~ /^\x{FEFF}//; # strip BOM # rest } [download]
In reply to Re: UTF-8 text files with Byte Order Mark by Joost in thread UTF-8 text files with Byte Order Mark by muba