Select Code to Download

lanx@lanx-1005HA:~$ perl -MO=Concise,-src /tmp/tst_bxref.pl |grep \$a
/tmp/tst_bxref.pl syntax OK
# 5: my $a=1;
...
# 21: print($a);
s        <0> padsv[$a:3,7] l ->t