Sabrina Gehring    BLUBB\ge3fr   32 016   85   5.7.2006   16:45 5.7.2006  16:45

Sabrina Gehring BLUBB ge3fr 32 016

Sabrina;Gehring;BLUBB;ge3fr;32 016;50

Bernstätter Roswita BLUBB\be3fr   66 715  457 6.7.2006 15:34 
Gehring Sabrina  BLUBB\ge3fr   32 016   85  5.7.2006  16:45 5.7.2006 16:45
Heizmann-Bayer Dorothea BLUBB\heb3fr   12 025  194 9.5.2006  7:41 9.5.2006  7:50
  

use strict;
use warnings;

=file ./BLUBBER.txt
Bernstätter Roswita BLUBB\be3fr   66 715  457 6.7.2006 15:34 
Gehring Sabrina  BLUBB\ge3fr   32 016   85  5.7.2006  16:45 5.7.2006 16:45
Heizmann-Bayer Dorothea BLUBB\heb3fr   12 025  194 9.5.2006  7:41 9.5.2006  7:50
Zeile-mit-KB kleiner-100 BLUBB\heb3fr   12  194 9.5.2006  7:41 9.5.2006  7:50
=cut

open my $fh, '<', './BLUBBER.txt' or die $!;

while (defined (my $line = <$fh>)) {
   my @array = (split /[\t\s\\]+/, $line)[0..7];
   my $x = pop @array;    # Uhrzeit oder Datum
   if ($x =~ /\./) {      # wenn x ein Datum ist
      pop @array;         # dann brauchen wir diese Zahl nicht
      my $y = pop @array; # aber diese zum Kontatinieren
      $array[-1] .= $y;
   } else {               # dann ist x eine Uhrzeit und KB < 100
      pop @array;         # die Uhrzeit brauchen wir nicht
      pop @array;         # die Zahl brauchen wir nicht
   }
   $array[-1] = sprintf('%.3f', $array[-1] / 1024);
   print join(';', @array), "\n"; # hier kannst du nach ZIEL.txt schreiben...
}

close $fh;