$_ = "some string with multiple words";
@first_three = (split)[0..2];
  # or
($first_three) = /^\s*(\S+\s+\S+\s+\S+)/;