In der anzuhängenden Datei einfach ein $string =~ s/\A\x{FEFF}//; vor dem Schreiben machen (das geht davon aus, dass die Datei ordentlich dekodiert wurde).