print scalar keys %{{map{(lc)x2} /(.)/sg}};

##</code><code>##

perl -lne'print if !grep $_ != 15, length, scalar keys %{{map{(lc)x2} /(.)/sg}}'