DB<120> print scalar grep {"a"=~/$_/} ("a","",undef)
3