#!perl -pl
$_=unpack"B*",eval;$_=y/1//