my $count1 = $string1 =~ tr/"a-z" || "A-Z"//;