#!perl -w

use strict;

for (1..2) {
   print "# " . <DATA>;
}
while (<DATA>) {
   unless (s/(\/apost.*?)(\s*f\(fix,1371\)\s+core\(60000\))(.*$)/"$1,record(1371)$3"/) {
      s/(\/apost.*$)/"$1"/;
   }
   print;
}

__DATA__
win-Line<br>
otsort ../data/ABC_DE_WKey_out.dat ../data/ABC_DE_WKey_out.srt /apost s(1001,8,c,a) om(1001,1,c,EQ,' ') f(fix,1371) core(60000)<br>
<br>
Unix-Line<br>
otsort ../data/ABC_DE_WKey_out.dat ../data/ABC_DE_WKey_out.srt /apost s(1001,8,c,a),om(1001,1,c,EQ,' ') f(fix,1371) core(60000)