perl -pe'$_=pack"B*",unpack"b*",$_'