#!/usr/bin/perl

use strict;
use warnings;

my @files = qw(BLUBBER.txt);
my $OUTPUT = 'ZIELgesamt.txt';

open(my $write_fh, '>', $OUTPUT) or die $!;
for my $file(@files){
   open(my $fh,'<',$file) or die $!;
   while(my $line = <$fh>){
       $line =~ tr/\xa0//d;  
       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 $write_fh join(';',@array),"\n";
   }
   close $fh;
}
close $write_fh or die $!;

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