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

##</code><code>##

/^(?:0*10*1)*/  # Matches evens
/^0*1(?:0*10*1)*/ # Odds