$ perl -E '
> $str = q{abcabdaaa};
> say $str;
> $str =~ s{a}{i} for 1 .. 3;
> say $str;'
abcabdaaa
ibcibdiaa
$