Well , your line:

$fullname =~ s/\s+/ /;
[download]

will only change the first whitespaces into ' ' !!!
You may want to change it to:

$fullname =~ s/\s+/ /g;
[download]

and try to change:

my ($lname, $fname) = split('\s+', $record[5]);
[download]

into

my ($lname, $fname) = split( /\s+/, $record[5]);
[download]

otherwise you split the string with "\s+" as a delimiter, not with ' ' !

Hope this helps..

-----------------------------------
--the good, the bad and the physi--
-----------------------------------
[download]