Select Code to Download

for my $d ( 30 .. 36 ) {
  my $this = $nil->text2digest( ( 'a' x $d ) . 'b' ) ;
  my $that = $nil->text2digest( ( 'a' x ( $d + 1 ) ) ) ;
...
         $diff . qq( characters different\n) .
         ( abs $diff2 ) . qq( bits different\n\n);
  }

000000000000900000010021000008105000080010000004000c400000000008
0000000000009000000000200000080040000000000000040008400000000000
8 characters different
...
0000000000009000000000200000080040000000000000040008400000000000
0 characters different
0 bits different