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";
     }
}