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