($fn,$ln) = split(/\s+/,$input);

##</code><code>##

$input = "foo bar blurf";
($f,$s) = split /\s+/, $input;
print "<$f> <$s>\n"
__END__
<foo> <bar>

##</code><code>##

$input = "foo bar blurf";
($f,$s) = split /\s+/, $input, 2;
print "<$f> <$s>\n"
__END__
<foo> <bar quux>