/ $text
  (?: \s (\w+)
      (?{ push @matches, $^N })
  )+
/x;