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