open (READFILE, "<readme.txt") || die "Couldn't open file: $!";
$buffer = "";

while(<READFILE>) {
    #print $_;
    $commas++ while ($_ =~ m/,/g);
    $fullstops++ while ($_ =~ m/\./g);
    $openbracket++ while ($_ =~ m/\[/g);
    $closedbracket++ while ($_ =~ m/\]/g);
    $hyphens++ while ($_ =~ m/-/g);
}

print ("$commas commas\n");
print ("$fullstops full stops\n");
print ("$openbracket open brackets\n");
print ("$closedbracket closed brackets\n");
print ("$hyphens hyphens\n");
[download]