$str =~ s/([a-z]),/$repl/eeig;

##</code><code>##

attempt 1 yields: aAcd