#!perl -pl
$_= ~-length sprintf"%b",$_