my $repl = '1';
{ 
	no strict 'refs';
	print "attempt 2 ";
	my $str = "a,A,c,d";
	$str =~ s/([a-z]),/${$repl}/ig;
	print "yields: $str\n";
}
__END__
attempt 2 yields: aAcd