Help for this page
use strict; use warnings; ... } print "$_: $hits{$_}\n" for ',', '.', '[', ']', '-';
,: 4 .: 2 [: 1 ]: 1 -: 1