#!usr/local/bin/perl
use strict;
use warnings;

print ("Enter filename to search for punctuation characters: ");
$path=<STDIN>;
print ("\n");
open(DATA, "<$path") || die "Couldn't open $path for reading: $!\n";
while (<DATA>)
{
    while (s/([\041-\057]|[\72-\100]|[\133-\140]|[\173-\176])(.*)/$2/)
    {
        my $count = $1;
        $wordHash{$count}++;
    }
}
%charnames = (
    '?' => 'question mark',
    '.' => 'fullstop',
    ',' => 'comma',
    '(' => 'open bracket',
    ')' => 'close bracket',
    '-' => 'hyphen/minus',
    '$' => 'dollar',
    '=' => 'equals',
    '/' => 'forward slash',
    "\\" => 'backward slash',
    '|' => 'pipe',
    '!' => 'exclaimation',
    '"' => 'speech marks',
    '*' => 'asterisk',
    '£' => 'pound',
    '%' => 'percent',
    '^' => 'carrot',
    '&' => 'ampes and',
    '_' => 'underscore',
    '+' => 'plus',
    '{' => 'open curly bracket',
    '}' => 'close curly bracket',
    '[' => 'open square bracket',
    ']' => 'close square bracket',
    '~' => 'tilde',
    '#' => 'hash',
    '<' => 'less than',
    '>' => 'greater than',
    '@' => 'at',
    "'" => 'apostrophe',
    ':' => 'semi-colon',
    ';' => 'colon',
);

while ( ($punctuation, $count) = each(%wordHash) )
{    
    $wordArray[$i] = "$count\t$punctuation";
    $i++;
    print ("$count\t$charnames{$punctuation}\n");
}
[download]

Global symbol "$path" requires explicit package name at punctuation.pl
+ line 6.
Global symbol "$path" requires explicit package name at punctuation.pl
+ line 8.
Global symbol "$path" requires explicit package name at punctuation.pl
+ line 8.
Global symbol "%wordHash" requires explicit package name at punctuatio
+n.pl line 14.
Global symbol "%charnames" requires explicit package name at punctuati
+on.pl line 17.
Global symbol "$punctuation" requires explicit package name at punctua
+tion.pl line 52.
Global symbol "$count" requires explicit package name at punctuation.p
+l line 52.
Global symbol "%wordHash" requires explicit package name at punctuatio
+n.pl line 52.
Global symbol "@wordArray" requires explicit package name at punctuati
+on.pl line 54.
Global symbol "$i" requires explicit package name at punctuation.pl li
+ne 54.
Global symbol "$count" requires explicit package name at punctuation.p
+l line 54.
Global symbol "$punctuation" requires explicit package name at punctua
+tion.pl line 54.
Global symbol "$i" requires explicit package name at punctuation.pl li
+ne 55.
Global symbol "$count" requires explicit package name at punctuation.p
+l line 56.
Global symbol "%charnames" requires explicit package name at punctuati
+on.pl line 56.
Global symbol "$punctuation" requires explicit package name at punctua
+tion.pl line 56.
Execution of punctuation.pl aborted due to compilation errors.
[download]