sub lc_x_cap_i {
    my ($str, $cnt) = @_;
    ++$cnt while $str =~ /(aa)/gi;
    return $cnt;
}

sub lc_x_i {
    my ($str, $cnt) = @_;
    ++$cnt while $str =~ /aa/gi;
    return $cnt;
}