perl -e"print pack'B*',unpack'b*',<>"