#!/usr/bin/perl
use strict;

print "Enter a character or a word: ";
chomp($_=<STDIN>);
print "$_->[1]: $_->[0]\n" for map{[unpack("B*",$_),$_]}split'';


##</code><code>##

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