($lname, $fname) = split(",");
        $fname =~ s/^\s+(.+?)\W*$/$1/;

##</code><code>##

  ($lname, $fname) = split /,\s*/, $_, 2;
  $fname =~ s/\W+$//;