Select Code to Download

$ perl -MO=Deparse -wle 'my ($a) = 1;my $b = 2; (my $c) = 3;my ($d, $e
+) = (4, 5); (my $f, my $g) = (6, 7); (my($h, $i) = (8, 9));my $j; my 
+($k);'
$ perl -MO=Concise -wle 'my ($a) = 1;my $b = 2; (my $c) = 3;my ($d, $e
+) = (4, 5); (my $f, my $g) = (6, 7); (my($h, $i) = (8, 9));my $j; my 
+($k);'

deparse: my($a) = 1;

...
5           <0> pushmark s ->6
6           <0> padsv[$a:1,7] lPRM*/LVINTRO ->7

deparse: my $b = 2;

...
b     <2> sassign vKS/2 ->c
9        <$> const(IV 2) s ->a
a        <0> padsv[$b:2,7] sRM*/LVINTRO ->b

deparse: my($c) = 3;

...
-        <1> ex-list lK ->h
f           <0> pushmark s ->g
g           <0> padsv[$c:3,7] lPRM*/LVINTRO ->h

deparse: my($d, $e) = (4, 5);

...
n           <0> padsv[$d:4,7] lRM*/LVINTRO ->o
o           <0> padsv[$e:4,7] lRM*/LVINTRO ->p

deparse: my($f, $g) = (6, 7);

...
u           <0> pushmark sRM* ->v
v           <0> padsv[$f:5,7] lRM*/LVINTRO ->w
w           <0> padsv[$g:5,7] lRM*/LVINTRO ->x

deparse: my($h, $i) = (8, 9);

...
12          <0> pushmark sRM*/128 ->13
13          <0> padsv[$h:6,7] lRM*/LVINTRO ->14
14          <0> padsv[$i:6,7] lRM*/LVINTRO ->15

deparse: my $j;

concise:
17    <0> padsv[$j:7,9] vM/LVINTRO ->18

deparse: my $k;

concise:
19    <0> padsv[$k:8,9] vPM/LVINTRO ->1a