perl -e "print unpack qq(B*),shift" Rolf