sub fullname {
    my @parts = @_;
    for ( @parts ) {
        s/(?<!\S)([A-Z])(?!\S)/$1./g;
    }
    return join " ", @parts;
}