my $s=',,,,';
$nCommas=($s=~/,/g);
print "$nCommas\n";   # prints 1