while (<$fh>) { s/\x{FEFF}//g; ... }