cat irgendwas.txt | perl -ne 'print unpack"B*",$_'