while ( my $line = <IN> ) {
     $line =~ s/^\x{FEFF}//;    
     print OUT $line;