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