RExp matchs many times,how can i get the matched content?

[firenet]

#!/usr/bin/perl -w
undef $/;
$buf=<>;
print foreach($buf =~/<img>(.*?)<\/img>/sg);

By the program above , i can print the content i wanted;but i want to
get it directly.
What should i do? Thanks.

 

[firenet]

thanks a lot. i'm newbie for perl , so i didn't recognize that is a
array.

 

[Ben Morrow]

You are traversing an array with 'foreach', you should have then noticed
that you could also just assing this array to another array...

It's not an array, it's a list.

Ben

 

[anno4000]

ok: s/array/list/gs

The /s modifier has no effect, it shouldn't be there.

Anno

 

[Tad McClellan]

ok: s/array/list/gs

^
^

A useless use of a regex modifier.

s/array/list/g