if (grep { $_ =~ /\S/ } split(//, $a) >= 3)