my (@match) = ($str =~ /^foo (?:m (\d+) )+bar/);