eval'p$.if/111(00)*$/=~"%b"%$.+=1;'*999