Pergeで正規表現を使用して各小文字を繰り返しますか？

Question

ABcD - > ABccD、xyzK - > xxyyzzKなどのマッピングが必要です。

これを行うためのループを書くことができます。しかしRegexでこれを行う方法はありますか？文字セット[a-z]のすべての小文字を見つけることができます。交換部品はどのように書くのですか？

$string =~ s/[a-z]/....../g; # How do I fill in for the ...... ? 

Answer 1

それを行うための最も簡単な方法は、キャプチャグループであり、変数をキャプチャ：

$string =~ s/([a-z])/$1$1/g; 

はperldoc perlretutにExtracting matchesとSearch and replaceを参照してください。