#!perl -lp
$_=unpack'%b*',eval