#! /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";