foreach my $name ( @names ) {

  $name =~ s/ [a-zA-Z]\.?$//;
  print "$name \n";

}