##
my @test = ( 'foo m 1 m 2 m 3 m 4 bar',
'foo m 2 m 4 m 7 bar',
'foo m 1 bar',
'm 2 foo m 1 bar',
'foo m 1 c 2 bar',
'foo m 1 bar m 2',
'foo m 1 m 5 m 7',
);
for my $str (@test) {
my (@match) = $str =~ /(?:^foo |(? (@match)\n";
}
##
##
'foo m 1 m 2 m 3 m 4 bar' => (1, 2, 3, 4)
'foo m 2 m 4 m 7 bar' => (2, 4, 7)
'foo m 1 bar' => (1)
'm 2 foo m 1 bar' => ()
'foo m 1 c 2 bar' => ()
'foo m 1 bar m 2' => (1)
'foo m 1 m 5 m 7' => ()