# zu lesende Datei
open(FILE, '<', $filename) or die $!;
local $/ = "\r\n";
binmode(FILE);

# Ergebnisse hier hineinschreiben
open(DATEI,">>Pfad/daten.txt");

$zeile = 0;
my $byte;
do
{
    $line = <FILE>;
    chomp($line);
    $zeile = $zeile+1;
    $byte = 0;
    for(my $z = 1; $z <= $Number[$zeile]; $z++)
    {
        printf DATEI ("%.4f\n", unpack("I", substr($line,$byte,4)) *$MultFact[$zeile]);
        $byte = $byte + 4;
    }
} until $zeile == $Anzahl || eof;