sub fullname {
    my @parts = @_;
    for ( @parts ) {
        $_ .= '.' if ( /^[A-Z]$/ );
    }
    return join " ", @parts;
}