$n =~ s/(?<![^ ])$a(?![%a])/$b/i;