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