Thanx, I like my code too! ;-)

Unfortunately there is a typical "too clever for perl" bug 8-(

please replace:

# while ($a  ) {
 while (length $a  ) {
[download]

otherwise qw/0 a/ will be a false positive!

If you want performance you may wanna try tr///d instead, but you will need to eval.