$foo =~ tr/0//d; length($foo);