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