Select Code to Download

$ perl -MO=Concise -e 'if ($x != -1 ){ print "foo" }'
a  <@> leave[1 ref] vKP/REFC ->(end)
...
7                 <0> pushmark s ->8
8                 <$> const[PV "foo"] s ->9
-e syntax OK