perl -we '"_" =~ m{(??{"_" =~ /./})}'