Select Code to Download

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

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