Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
=OUTPUT
bin   => 01010010011011110110110001100110
ascii => Rolf

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