是否有Perl相当于Python的re.findall/re.finditer(迭代正则表达式结果)？

import re

text = "The quick brown fox jumps over the lazy dog"
pattern = r'\b\w+\b'

matches = re.findall(pattern, text)
print(matches)

my $text = "The quick brown fox jumps over the lazy dog";
my $pattern = '\b\w+\b';

my @matches = $text =~ /$pattern/g;
print join(", ", @matches), "\n";

my $text = "The quick brown fox jumps over the lazy dog";
my $pattern = '\b\w+\b';

my @matches = $text =~ /$pattern/g;

for my $i (0..$#matches) {
    my $start = $+[$i];
    my $end = $+[$i+1];
    my $length = $end - $start;
    print "Match '$matches[$i]' starts at position $start and has length $length\n";
}

Match 'The' starts at position 0 and has length 3
Match 'quick' starts at position 4 and has length 5
Match 'brown' starts at position 10 and has length 5
Match 'fox' starts at position 16 and has length 3
Match 'jumps' starts at position 20 and has length 5
Match 'over' starts at position 26 and has length 4
Match 'the' starts at position 31 and has length 3
Match 'lazy' starts at position 35 and has length 4
Match 'dog' starts at position 40 and has length 3