$string =~ s/a/i/ for 1 .. $N;