$x = 'ababababab';
$i=3;
$x =~ s/(^|[^a])a([^a]|$)/$1B$2/ while $i--;
print "$x\n"
__END__

BbBbBbabab