perl -pe 'BEGIN{binmode STDOUT}$_=pack"B*",-+-$_'