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