Jak sprawdzić ilość wystąpienia danego znaku w pliku?

Witam, otóż w perlu wczytuję pewien plik. Odbywa się to w taki sposób:

open($list, "<", $student_list) or die "Nie mozna otworzyc \"$student_list\": $!";
 
while ($linelist = <$list>)
{
   printf("$linelist");
   chomp $linelist;
   push(@tablist, split(',', $linelist));
}
close($list)

I chciałem się zapytać czy istnieje jakiś sposób, aby sprawdzić ilość wystąpienia danego znaku w danej linii? A dokładniej chciałbym się dowiedzieć ile przecinków występuje w danej linii i to podawać pod jakąś zmienną.

A dokładniej chciałbym się dowiedzieć ile przecinków występuje w danej linii i to podawać pod jakąś zmienną.

Zobacz tu - dokładnie to samo opisali, wystarczyło poszukać.