$ perl -MO=Concise,-src test.pl | perl -ne \ '/^#\s+\d+\s*:/&&($a=$_);/(? stringify[$zz:257,258] sK/TARGMY,1 ->1b