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

##</code><code>##

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