#!/usr/bin/perl
use warnings;
use strict;
open(FH,"<BLUBBER.txt") or die $!;               
  open(OUTDATEN,">ZIELneu.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 OUTDATEN join(';', @array), ":50\n";
}
close (OUTDATEN) or die $!;
close (FH) or die $!;

sub find_longest{                           
my $longest = 0;
for(@_){
    my $length = length($_);
    $longest = $length if($length > $longest);
}
return $longest;
}