{
        @fields = $parser->fields();
        
        if ($fields[-1] =~ m/^\d{2}$/ and $fields[-1] > 0 and $fields[-1] <= 49)   # Nur Zahlen von 01 bis 49
        {       ; 
            my $geparst = join (' ',@fields);
            @geparst = $geparst;
            print DATEI $_,"\n" for(@geparst);