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