$ perl -le'
my $x = "ababababab";
print $x;
my $count = 0;
$x =~ s/a/ ++$count <= 3 ? "B" : "a" /eg;
print $x;
'
ababababab
BbBbBbabab