I am using this, but does not do want I want:

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