$cleanLine= $elem;
 $cleanLine =~ s/\/.*//g;
 $cleanLine =~ s/\?.*//;
 $cleanLine =~ s/;.*//;
 $cleanLine =~ s/;$//;
 $cleanLine =~ s/\.*//;
etc. etc. ad infinitum