Select Code to Download

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

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