Select Code to Download

    my $repl = '$1';
    my $str = "a,A,c,d";
...
    say $str;
    __END__
    aA,cd

    my $repl = '$1';
    eval <<"EOT";
...
            \$str =~ s/([a-z]),/$repl/g;
        }
    EOT