my $s=',,,,';

    print $s =~ tr/,//;

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

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