Help for this page
sub fullname { my (@parts) = @_; ... $name =~ s/ (.)$/ $1\./g; return($name); } # end-sub
$name =~ s/(^| )(.)( |$)/$1$2\.$3/g;