while ($string =~ /(pattern)/g) {
    do_something_with($1);
}

##</code><code>##

while ($string =~ /(?=(patter))/g) {
    do_something_with($1);
}