my $foo = $bar =~ tr/,/,/ + 1;