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)
##</code><code>##

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)

##</code><code>##

if(/(.*\(/apost))/)
{
   if(/^(.*?)(\S+)$/)
      {
         print "#UnixLine\n";
	 my $start = $1;
	 my $end = $2;
	 $end =~ s|(.*\(/apost.*))|"(.*\(/apost.*))"|g;
	 print "$start$end\n";
	 print outFile "#UnixLine\n";
	 print outFile "$start$end\n";
     }
}