Lawrence, Jerry A.
Wallace, Bob W.
Anthony, Ronald
Nelson, Dwight R.
Jamison, Jeff S.
Favors, Eric S.
Williams, Herb C.
Carter, Shaun

##</code><code>##

#!/db/bin/perl -w

use strict;
use warnings;

my $filename = $ARGV[0];


open FILE, $filename or die $!;

my $i = 0;
while(<FILE>)
{
        if($i == 0)
        {
                $i++;
                next;
        }
        chomp;
        if (/\"(.*?), (.*?)[" ]((.*?)\")?/)
        {
                my $last = $1;
                my $first = $2;
                my $mi  = $4;
                if(defined $mi)
                {
                        print "$last, $first $mi\n";
                }
                else
                {
                        print "$last, $first\n";
                }
        }

}

close FILE;