my ($this, $that, $other) = ("") x 3;
($this, $that, $other) = split (/\s+/, $line); 
# Now the worst case is you'll have a null string, not undef