perl -MO=Concise,-src a.pl

gistfile1.txt

Glen-Hinkles-MacBook-Pro:~ glen$ perl -MO=Concise,-src a.pl
l  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
# 3: my $thing = <<THING;
2     <;> nextstate(main 66 a.pl:3) v:%,*,&,{,$ ->3
5     <2> sassign vKS/2 ->6
-        <1> scalar sK/1 ->4
-           <0> ex-pushmark s ->3
3           <$> const(PV "Line 1\nLine 2\nLine 3\n") s ->4
4        <0> padsv[$thing:66,67] sRM*/LVINTRO ->5
# 9: say $_ for split "\n", $thing;
6     <;> nextstate(main 67 a.pl:9) v:%,*,&,{,$ ->7
k     <2> leaveloop vK/2 ->l
d        <{> enteriter(next->h last->k redo->e) lK/8 ->i
-           <0> ex-pushmark s ->7
-           <1> ex-list lKM ->c
7              <0> pushmark sM ->8
b              <@> split[t3] lKM ->c
8                 </> pushre(/"\n"/) s*/64 ->9
9                 <0> padsv[$thing:66,67] s ->a
a                 <$> const(IV 0) s ->b
c           <$> gv(*_) s ->d
-        <1> null vK/1 ->k
j           <|> and(other->e) vK/1 ->k
i              <0> iter s ->j
-              <@> lineseq vK ->-
g                 <@> say vK ->h
e                    <0> pushmark s ->f
-                    <1> ex-rv2sv sK/3 ->g
f                       <$> gvsv(*_) s ->g
h                 <0> unstack v ->i
a.pl syntax OK