Wie wiederhole ich jeden Kleinbuchstaben mit Regex in Perl?

Question

Ich möchte Zuordnungen wie diese: ABcD -> ABccD, xyzK -> xxyyzzK usw.

Ich kann eine Schleife schreiben, um dies zu tun. Aber gibt es einen Weg, dies mit Regex zu tun? Ich kann alle Kleinbuchstaben mit einem Zeichensatz [a-z] finden. Wie schreibe ich das ersetzende Teil?

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

Answer 1

Der einfachste Weg, dies zu tun, ist mit einer Erfassungsgruppe und Capture-Variable:

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

Siehe Extracting matches und Search and replace in perldoc perlretut.