I never post cause im not english but, teaching perl? try this:

#!/usr/bin/perl
use strict;

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

Update: Golf time:

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

$anarion=\$anarion;

s==q^QBY_^=,$_^=$[x7,print