perl - Perl - ソースコードへのオペコード?

Question

オペコードがある場合、perl ソース コードを作成する方法はありますか?

例えば

perl -MO=Concise -e "print 123"

オペコードを出力します：

6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
5     <@> print vK ->6
3        <0> pushmark s ->4
4        <$> const[IV 123] s ->5

これを何とか逆転させたい。