$ 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);'