my ($i, $j, $k);
for ('a' .. 'z', 'A' .. 'Z') {
  $i++ if $text2 =~ /$_/;
}
$j++ if $text3 =~ /quux/;
$k++ if $text4 =~ /H/;