#!/bin/perl -w
use strict;

my $input;

do {
  print "Enter a character or word: ";
  chomp( $input = <STDIN>);

  my @chars = split ('',$input);
  foreach ( @chars )
    { my $dec = ord( $_);
      my @bin;
      for( reverse 0..7)
        { if( $dec >= 2**$_) { push @bin, 1; $dec -= 2**$_; }
          else               { push @bin, 0;                }
        }
     print "$_: " . join('',@bin) . "\n";
    }
  }while( $input);