# UTF-16LE Dateien zusammenfügen
#This is perl, v5.8.8 built for MSWin32-x86-multi-thread
use strict;

my $in="datei1.utf";	
my $out="datei2.utf";   
my $ZEILE="";

open (IN,"<:encoding(UTF-16LE)","$in") || die "Kann $in nicht öffnen! $!";
open (OUT,">>:raw:encoding(UTF-16LE)","$out") || die "Kann $out nicht öffnen! $!";

while ($ZEILE=<IN>) {
       	# Hier könnte man dann alles mögliche mit $zeile machen
        $ZEILE =~ s/\A\x{FFFE}//;
	print OUT "$ZEILE";
}	

close IN;
close OUT;