my $s=',,,,';
    $nCommas=($s=~/,/g);

##</code><code>##

    my $s=',,,,';

    print $s =~ tr/,//;

    my $count= ()= $s=~/,/g;
    print $count;

    print 0+( ()= $s=~/,/g );