#! /usr/bin/perl -w

  use strict;

  my $pw = shift || 'thisismypassword';
  my $ones = 0;
  foreach( split //, $pw ) {
    my $bitmap = sprintf '%b', ord $_;
    $ones += ($bitmap =~ tr/1/1/);
  }
  print "$ones/128 bits set\n";

##</code><code>##

  foreach( split //, $pw ) {
    printf "%08b\n", ord $_;
  }

##</code><code>##

  01110100
  01101000
  01101001
  01110011
  01101001 
  01110011
  01101101
  01111001
  01110000
  01100001
  01110011
  01110011
  01110111
  01101110
  01110010
  01100100