Question

Let’s say I’m scanning through a page of raw html looking for this regex. (The quote mark on the end is intentional).

m/(https?:\/\/.*?(?:'|"))/

This pattern is likely to match ~ 100 times. What is a common perl idiom/a quick way to iterate through a list of all capture group matches?

Answer 1

From the perlretut (a very fine tutorial)

while ($x =~ /(\w+)/g) {
    print "Word is $1, ends at position ", pos $x, "\n";
}

You can use while together with the g modifier to iterate over all matches, with $1 you get the content of your capturing group 1, and in this example from the tutorial you get also the position with pos.