#!/usr/bin/perl

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

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

open(OUTFILE, "> $outfile")
or
die "\nDatei $outfile konnte nicht geoeffnet werden\n";

open(OUTFILE2, "> $outfile2")
or
die "\nDatei $outfile2 konnte nicht geoeffnet werden\n";

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

close(INFILE);
close(OUTFILE);