Select Code to Download

#!/usr/bin/env perl

...

print "\n$count pairs with minimum difference of $min_dist from a set 
+of ",
      scalar(@chars), " characters taken $depth at a time.\n";

1: AAAAA <=> AAMMM
2: AAAAA <=> AAMMN
...

917172 pairs with minimum difference of 3 from a set of 4 characters t
+aken 5 at a time.