#!perl -p s#.#"m,.{@+}(?{print/^(|1|(11+)\\2+)\$/^1for 1x\$&})^,"#gee