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