#!D:/Perl/

use strict;
use warnings;

open(DATA,"neu-1.txt") or die "Konnte File nicht oeffnen\n";
while (<DATA>) 
{
    chomp;
    my @row = split /;/, $_;            # Bei; wird getrennt
    @row = map { s/"/ /g; $_ } @row;   # Ersetzt " durch 'Leerzeichen'
                 
    open(DATEI,">>datei.txt") || die "File nicht gefunden";
    if ("$row[3]" =~ /01/ || "$row[3]" =~ /02/ || "$row[3]" =~ /03/)
        
    {