$x = () = "abcdABCabA" =~ /a/ig; # Count A's regardless of case.