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

##</code><code>##

s/^\x{FEFF}//g