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