if(/^otsort/) { $myLine =~ s|(/apost.*) f\(fix,(\d{4}\).*$|"$1,record\($2\)"|g; print "$myLine\n"; print outFile "$endUnixLine\n"; }