if($logFile =~ /^dn/ ) {
$laenge = length($tmp_line);                                    
if($laenge <=4000) {
print $frontend "$tmp_line\t\t\t\t\n";
}
elsif($laenge <= 8000) {
my ($a, $b) = unpack("A4000 A4000", $tmp_line);
print $frontend "$a\t$b\t\t\t\n";
}
elsif($laenge <= 12000) {
my ($a, $b, $c) = unpack("A4000 A4000 A4000", $tmp_line);
print $frontend "$a\t$b\t$c\t\t\n";

}
elsif($laenge <= 16000) {
my ($a, $b, $c, $d) = unpack("A4000 A4000 A4000 A4000", $tmp_line);
print $frontend "$a\t$b\t$c\t$d\t\n";

}
                                        }