...-w
$file = shift;
$file1 = "${file}1";
$file2 = "${file}2";
open FILE, $file or die;
open FILE1, ">$file1" or die;
open FILE2, ">$file2" or die;
while (<FILE>) {
# determine destination
select substr($_, 44, 3) eq "002" ? *FILE2 : *FILE1;
print;
}
rename $file1, $file...