#!/usr/bin/perl

$infile = @ARGV[0];
$outfile = "OK.txt"; 
$outfile2 = "ERROR.txt";      
@Filter = ('01005;01000','01005;01001','01005;01002','01005;01003');
$zaehler = 0;

##</code><code>##

open(INFILE, "< $infile")
or
die "\nDatei $infile konnte nicht geoeffnet werden\n";

##</code><code>##

open my $in, '<', $infile or
  die "Error message including \$!: $!\n";

##</code><code>##

while (<INFILE>) { print OUTFILE if /@Filter[0]/; }