my $BOM = chr(0xFEFF); $line =~ s/^$BOM//;