open(DATA, "<$path/$file") || die "Cannot open file!\n";
for (<DATA>)
{
        $zeile = $_;
        if ( /^Belegnummer;Position;Materialnr.;/ )
        {
                $gefunden = 1;
        }
        if ( $gefunden == 1 )
        {
               $zeile =~ s/=\n//;
               print $zeile;
        }
}
close (DATA);