print for grep defined(), $s =~ /^$re2$/;

##</code><code>##

print "$_\n" for grep defined(), $s =~ /^$re2$/;