$line =~ s/ vs ... /,/;
   $line =~ s/ \@ ... /,/;