$string =~ y/,/,/ == -1 + grep length y/ //dr, split /,/, $string