Select Code to Download

#my $repl = '$1-$1-';
use strict;
...
    $str =~ s/([a-z]),/qq{"$repl"}/igee;
    print "yields: $str\n";
}