Select Code to Download

sub fullname {
  my (@parts) = @_;
...
  $name =~ s/ (.)$/ $1\./g;
  return($name);
} # end-sub

  $name =~ s/(^| )(.)( |$)/$1$2\.$3/g;