That works, but now you just have an obfuscated version of

foreach my $name ( @names ) {

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

}
[download]