$ perl -E 'my $name = q{Ken}; say qq{(sn = $name)}'
(sn = Ken)