open (FH,"<", $_); 
# to
open (FH,"<:encoding(latin1)", $_);