Select Code to Download

# perl -MO=Concise -e '$s = "a" x 3';
8  <@> leave[1 ref] vKP/REFC ->(end)
...
4           <$> const[IV 3] s ->5
-        <1> ex-rv2sv sKRM*/1 ->7
6           <#> gvsv[*s] s ->7

# perl -MO=Concise -e '$s = "aaa"';
6  <@> leave[1 ref] vKP/REFC ->(end)
...
3        <$> const[PV "aaa"] s ->4
-        <1> ex-rv2sv sKRM*/1 ->5
4           <#> gvsv[*s] s ->5