Select Code to Download

perl -Mstrict -le 'my $s="blah"; print "%$s%"'

perl -Mstrict -le 'my $s={foo=>"bar"}; print "%$s%"'

perl -Mstrict -le 'my %s=(foo => "bar"); print "%s"'
%s
...
perl -Mstrict -le 'my $s=[qw/foo bar/]; print "@$s@"'
foo bar@