Help for this page
$foo =~ tr/0//d; length($foo);
/^(?:0*10*1)*/ # Matches evens /^0*1(?:0*10*1)*/ # Odds