Select Code to Download

#!/usr/bin/perl -w

...
foreach my $key (keys %chars) {
     print "\t$key = $chars{$key}\n";
}

[13:22:15 jhorner@gateway scripts]$ ./20000714-1.pl 
Report:
...
       s = 1
       l = 1
       . = 2