DB<1> $aa = "aabbccddaaffddnnaa";

  DB<2> $aa =~ s/(?<=.)aa(?=.)/ee/;

  DB<3> print $aa
aabbccddeeffddnnaa