Select Code to Download

$ perl -Mstrict -Mwarnings -E 'my $v = qq{$s@a%h}; say $v'
Possible unintended interpolation of @a in string at -e line 1.
Global symbol "$s" requires explicit package name (did you forget to d
+eclare "my $s"?) at -e line 1.
Global symbol "@a" requires explicit package name (did you forget to d
+eclare "my @a"?) at -e line 1.
Execution of -e aborted due to compilation errors.

$ perl -Mstrict -Mwarnings -E 'my $v = q{$s@a%h}; say $v'
$s@a%h