@allmatches = $text =~ m/foo(.*?)bar/g;
for ( @allmatches ) {
    print "dollarunderscore= $_ \tdollarone= $1\n";
}

##</code><code>##

while ($text =~ m/foo(.*?)bar/g) {
    print "dollarunderscore= $_ \tdollarone= $1\n";
}

##</code><code>##

$text =~ m/foo(.*?)bar/g; print "$_ \t$1\n";
$text =~ m/foo(.*?)bar/g; print "$_ \t$1\n";
$text =~ m/foo(.*?)bar/g; print "$_ \t$1\n";
#[... repeated as often as necessary ...]