my $count = 0;
$text =~ s/(a)/$count++ < 3 ? "xx" : $1/g;