How can I capture multiple matches from the same Perl regex?

Question

I'm trying to parse a single string and get multiple chunks of data out from the same string with the same regex conditions. I'm parsing a single HTML doc that is static (For an undisclosed reason, I can't use an HTML parser to do the job.) I have an expression that looks like:

$string =~ /\<img\ssrc\="(.*)"/; 

and I want to get the value of $1. However, in the one string, there are many img tags like this, so I need something like an array returned (@1?) is this possible?

Answer 1

As Jim's answer, use the /g modifier (in list context or in a loop).

But beware of greediness, you dont want the .* to match more than necessary (and dont escape < = , they are not special).

while($string =~ /<img\s+src="(.*?)"/g ) {   ... }  

Answer 2

@list = ($string =~ m/\<img\ssrc\="(.*)"/g); 

The g modifier matches all occurences in the string. List context returns all of the matches. See the m// operator in perlop.