#!/usr/bin/perl

$infile = @ARGV[0];
$outfile = "OK.txt"; 
$outfile2 = "ERROR.txt";      

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>) {
if($_ =~ /01005;01000|01005;01001|01005;01002|01005;01003|01005;01004|01005;01005|01005;01006|01005;01007|01005;01008|01005;01009|01005;01010|01005;01011|01005;01012|01005;01013|01005;01014|01005;01015|01005;01109|01005;01170|01005;01177|01005;01198|01005;01199|01005;01200|01005;01400|01005;01401|01005;01402|01005;01403|01005;01404|01005;01405|01005;01406|01005;01407|01005;01408|01005;01409|01005;01410|01005;01411|01005;01412|01005;01443|01005;01576|01005;01577|01005;01597|01005;01600|01005;01601|01005;01602|01005;01603|01005;01604|01005;01605|01005;01606|01005;01607|01005;01608|01005;01610|01005;01611|01005;01612|01005;01613|01005;01614|01005;01615|01005;01616|01005;01617|01005;01618|01005;01619|01005;01620|01005;01621|01005;01622|01005;01623|01005;01624|01005;01625|01005;01626|01005;01627|01005;01628|01005;01629|01005;01634|01005;01635|01005;01660|01005;01773|01005;01798|01005;01800|01005;01801|01005;02000|01005;02001|01005;02002|01005;02003|01005;02004|01005;02005|01005;02006|01005;02045|01005;02046|01005;02196|01005;02200|01005;02201|01005;02202|01005;02203|01005;02204|01005;02398|01005;02399|01005;02400|01005;02402|01005;02403|01005;02404|01005;02405|01005;02406|01005;02407|01005;02408|01005;02409|01005;02598|01005;02599|01005;02600|01005;02601|01005;02603|01005;02800|01005;02801|01005;02802|01005;02803|01005;02804|01005;02805|01005;02807|01005;02809|01005;02810|01005;02811|01005;02812|01005;02970|01005;02971|01005;02996|01005;02997|01005;02998|01005;03000|01005;03001|01005;03002|01005;03200|01005;03201|01005;03202|01005;03203|01005;03204|01005;03205|01005;03206|01005;03207|01005;03208|01005;03209|01005;03210|01005;03211|01005;03212|01005;03213|01005;03214|01005;03215|01005;03216|01005;03217|01005;03218|01005;03219|01005;03220|01005;03221|01005;03222|01005;03223|01005;03224|01005;03225|01005;03226|01005;03227|01005;03228|01005;03229|01005;03230|01005;03231|01005;03232|01005;03233|01005;03234|01005;03235|01005;03236|01005;03237|01005;03238|01005;03239|01005;03240|01005;03241|01005;03242|01005;03243|01005;03244|01005;03245|01005;03246|01005;03247|01005;03248|01005;03249|01005;03250|01005;03252|01005;03253|01005;03254|01005;03255|01005;03256|01005;03257|01005;03258|01005;03259|01005;03260|01005;03261|01005;03262|01005;03264|01005;03265|01005;03266|01005;03267|01005;03268|01005;03269|01005;03270|01005;03271|01005;03272|01005;03273|01005;03274|01005;03275|01005;03276|01005;03277|01005;03278|01005;03279|01005;03280|01005;03281|01005;03294|01005;03298|01005;03305|01005;03309|01005;03320|01005;03332|01005;03333|01005;03337|01005;03338|01005;03339|01005;03340|01005;03341|01005;03342|01005;03343|01005;03344|01005;03345|01005;03347|01005;03350|01005;03366|01005;03367|01005;03369|01005;03370|01005;03371|01005;03372|01005;03373|01005;03374|01005;03375|01005;03376|01005;03379|01005;03381|01005;03382|01005;03383|01005;03384|01005;03385|01005;03386|01005;03387|01005;03388|01005;03389|01005;03392|01005;03393|01005;03394|01005;03395|01005;03396|01005;03397|01005;03398|01005;03399|01005;03400|01005;03401|01005;03402|01005;03403|01005;03404|01005;03405|01005;03406|01005;03407|01005;03408|01005;03409|01005;03410|01005;03411|01005;03412|01005;03413|01005;03414|01005;03415|01005;03416|
01005;03417|01005;03419|01005;03420|01005;03433|01005;03531|01005;03600|01005;03601|01005;03602|01005;03800|01005;04000|01005;04001|01005;04002|01005;04003|01005;04004|01005;04005|01005;04006|01005;04007|01005;04008|01005;04009|01005;04010|01005;04011|01005;04012|01005;04070|01005;04199|01005;04200|01005;04400|01005;04401|01005;04402|01005;04403|01005;04404|01005;04405|01005;04600|01005;04601|01005;04602|01005;04603|01005;04604|01005;04605|01005;04606|01005;04607|01005;04675|01005;04676|01005;04773|01005;04800|01005;04801|01005;04802|01005;04803|01005;04804|01005;04998|01005;04999|01005;10000|01005;10100|01005;10101|01005;10200|01005;10201|01005;10300|01005;10400|01005;10500|01005;10600|01005;10601|01005;10700|01005;10800|01005;10900|01005;10943|01005;11000|01005;11100|01005;11101|01005;11200|01005;11201|01005;11202|01005;11300|01005;11301|01005;11400/ ) {
print OUTFILE;
}
else {
print OUTFILE2;
}
}
close(INFILE);
close(OUTFILE);
close(OUTFILE2);