Select Code to Download

#!/usr/bin/perl

...
for ( sort {$whitespace{$b} <=> $whitespace{$a}} keys %whitespace ) {
    printf "%4d %s\n", $whitespace{$_}, $_;
}

$ space-hist space-hist
Whitespace tokens found in space-hist:
...
  11 0a
   4 0a 20 20 20 20
   2 20 20