sub transform {
    my ($name) = @_;
    $name =~ s/^\s*(\S+),\s(\S)\S+$/${2}${1}/;
    # Added '\S+$'
    return $name;
}