bat datei - mal was leichtes

Code:

#!/usr/bin/perl -w
use strict;

# <- init
my $FileName = $ARGV[0];
my $line;
my @FilePatched;

# read file | fetch into array
open (READ, "<$FileName") or die "Cant open $FileName (read) -> F0001: $!\n";
foreach $line (<READ>) {
    if ($line =~ /M0|ToolDef/) {
        next;
        }
    push (@FilePatched,$line);
    }
close (READ);

# write file | rename
open (WRITE,">$FileName") or die "Cant open $FileName (write) -> F0002: $!\n";
print WRITE (@FilePatched);
close (WRITE);