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