Help for this page

Select Code to Download

Select or download this

while ($test =~ m{$re}g) {
   print "FOO:<$1>\n";
}

Select or download this

$test =~ s{$re}{
    print "BLA: $1 \n";
}ge