SWA vs CHE GK
WBA @ BOU GK

##</code><code>##

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

##</code><code>##

EVE GK