Select Code to Download

#!/usr/bin/perl
use strict;
...
chomp($_=<STDIN>);
print "$_->[1]: $_->[0]\n" for map{[unpack("B*",$_),$_]}split'';

perl -wle '$_=<STDIN>,chop;map{print"$_: ",unpack("B*",$_)}split//'