print"$_ : ",(sprintf'%b',$_)=~s/(.*)1(0*)/"(1+2*length\$2)*2**0b$1"/eer,$/for 1..100