my $count = $string =~ tr/,//;