# Starting with Lastname, Firstname
# Wanting to get to FLastname
sub transform {
    my ($name) = @_;
    $name =~ s/^\s*(\S+),\s(\S)/${2}${1}/;
    return $name;
}