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

##</code><code>##

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