if ( $text =~ m/(?:(a).*?){3}/ ) {
    substr($text, $-[1], $+[1] - $-[1]) = '(aa)';
}