Select Code to Download

perl -MO=Concise -e " @vals = map($_*5, @vals); "
perl -MO=Concise -e " @vals = map{$_*5} @vals; "

$  perl -MO=Concise -e " @vals = map($_*5, @vals); "   $  perl -MO=Con
+cise -e " @vals = map{$_*5} @vals; "
g  <@> leave[1 ref] vKP/REFC ->(end)                   g  <@> leave[1 
+ref] vKP/REFC ->(end)
1     <0> enter ->2                                    1     <0> enter
+ ->2
...
                                                       -e syntax OK

@ARGV and $ARGV[0] =~ /asdf/ and print;

if(@ARGV and $ARGV[0] =~ /asdf/){ print; }