use warnings;
use strict;
use Lingua::EN::NameParse qw();

my $p = Lingua::EN::NameParse->new();

while (<DATA>) {
    my ($name) = $_ =~ m{([^/]+)/};
    if ($p->parse($name)) {
        print "Error: $name\n";
    }
    else {
        my %name_comps = $p->components();
        printf "%s %s, %s %s\n", @name_comps{qw(surname_1 suffix given_name_1 initials_1)};
    }
}

__DATA__
George Washington/GOV/VA/US
John Adams/GOV/MA/US
John Q Adams/GOV/MA/US
John Q Adams Jr/GOV/MA/US
John Q Adams JR/NonEmployee/GOV/MA/US
Thomas Jefferson/GOV/VA/US
Martin Van Buren/GOV/VA/US