my $temp = 'xxx$1';
my $repl = eval q{"$temp"};