B::Concise

perl -MO=Concise -e " @vals = map($_*5, @vals); "
perl -MO=Concise -e " @vals = map{$_*5} @vals; "
[download]

side by side

$  perl -MO=Concise -e " @vals = map($_*5, @vals); "   $  perl -MO=Con
+cise -e " @vals = map{$_*5} @vals; "
g  <@> leave[1 ref] vKP/REFC ->(end)                   g  <@> leave[1 
+ref] vKP/REFC ->(end)
1     <0> enter ->2                                    1     <0> enter
+ ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3               2     <;> nexts
+tate(main 2 -e:1) v:{ ->3
f     <2> aassign[t8] vKS/COMMON ->g                   f     <2> aassi
+gn[t9] vKS/COMMON ->g
-        <1> ex-list lK ->c                            -        <1> ex
+-list lK ->c
3           <0> pushmark s ->4                         3           <0>
+ pushmark s ->4
8           <|> mapwhile(other->9)[t7] lK ->c          8           <|>
+ mapwhile(other->9)[t8] lK ->c
7              <@> mapstart lK ->8                     7              
+<@> mapstart lK* ->8
4                 <0> pushmark s ->5                   4              
+   <0> pushmark s ->5
-                 <1> null lK/1 ->5                    -              
+   <1> null lK/1 ->5
b                    <2> multiply[t4] sK/2 ->8         -              
+      <1> null lK/1 ->8
-                       <1> ex-rv2sv sK/1 ->a          -              
+         <@> scope lK ->8
9                          <#> gvsv[*_] s ->a          -              
+            <0> ex-nextstate v ->9
a                       <$> const[IV 5] s ->b          b              
+            <2> multiply[t4] sK/2 ->-
6                 <1> rv2av[t6] lKM/1 ->7              -              
+               <1> ex-rv2sv sK/1 ->a
5                    <#> gv[*vals] s ->6               9              
+                  <#> gvsv[*_] s ->a
-        <1> ex-list lK ->f                            a              
+               <$> const[IV 5] s ->b
c           <0> pushmark s ->d                         6              
+   <1> rv2av[t6] lKM/1 ->7
e           <1> rv2av[t2] lKRM*/1 ->f                  5              
+      <#> gv[*vals] s ->6
d              <#> gv[*vals] s ->e                     -        <1> ex
+-list lK ->f
-e syntax OK                                           c           <0>
+ pushmark s ->d
                                                       e           <1>
+ rv2av[t2] lKRM*/1 ->f
                                                       d              
+<#> gv[*vals] s ->e
                                                       -e syntax OK
[download]

I'm no expert, but it looks like the difference is a new scope being introduced, like

@ARGV and $ARGV[0] =~ /asdf/ and print;
[download]

versus

if(@ARGV and $ARGV[0] =~ /asdf/){ print; }
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.