perl - perl 文字の 1 つの出現を 2 つに置き換える方法

Question

2 つの文字を持つ文字のすべてのインスタンスを翻訳したいと思います。私がそれを行う通常の方法は次のとおりです。

$text =~ s/a/aa/g;

キャラクターの単一インスタンスのみを2倍にしたい。そう変わらずにaa残ってしまう。aaaaaa

ステートメントで変数を使用する必要があると考えていますが、s///ここまたはネットで適切なパターンが見つかりません。

Answer 1

のインスタンスがa別の の隣にない一致a:

s/(?<!a)a(?!a)/aa/g;