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