$fullname =~ s/\s+/ /;

##</code><code>##

$fullname =~ s/\s+/ /g;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

-----------------------------------
--the good, the bad and the physi--
-----------------------------------