perl -le 'print join"",map{sprintf"%08b",ord($_)}split//,pop' Rolf
perl -le 'print join"",map{chr(oct"0b$_")}pop=~/(\d{8})/g' 01010010011011110110110001100110