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

##</code><code>##

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