Select Code to Download

#!usr/local/bin/perl

...
    $i++;
    print ("$punctuation\t$count\n");
}

?     1
.     6
...
)     10
;     21
$     19

question mark     1
fullstop          6
...
close bracket     10
colon             21
dollar sign       19