use warnings;
use strict;
use Test::More tests=>2;
{
	my $lhs = '\\{(.*?)\\}';
	my $rhs = '$1';
	my $str = '{abc}';
	$str =~ s{$lhs}{$rhs}ee;
	is $str, 'abc';
}
{
	my $lhs = 'xyz';
	my $rhs = '"qqq"';
	my $str = 'AxyzB';
	$str =~ s{$lhs}{$rhs}ee;
	is $str, 'AqqqB';
}