Select Code to Download

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

    my $s=',,,,';

    print $s =~ tr/,//;
...
    print $count;

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