use strict;
my $v = 'x';
print "$v\{a\}";
__END__
x{a}