use strict;
use warnings;

open my $in, '<', './BLUBBER.txt' or die $!;
open my $out, '>', './ZIEL_NEU.txt' or die $!;

while (defined (my $line = <$in>)) {
   my @array = (split /[\t\s\\]+/, $line)[0..7];
   my $x = pop @array;
   if ($x =~ /\./) {
      pop @array;
      my $y = pop @array;
      $array[-1] .= $y;
   } else {
      pop @array;
      pop @array;
   }
   $array[-1] = sprintf('%.3f', $array[-1] / 1024);
   print $out join(';', @array), ":50\n";
}

close $out or die $!;
close $in or die $!;