$ perl -MO=Concise -e ' sub foo { my $string = shift; my( $id, $sess ) = split( /\./, $string, 2 ); return( $id, $sess ); } foo( "abcd1efghi2j.a01f2345b067cde890f12gab345678c9" );' 7 <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 2 <;> nextstate(main 4 -e:1) v ->3 6 <1> entersub[t2] vKS/TARG,1 ->7 - <1> ex-list K ->6 3 <0> pushmark s ->4 4 <$> const[PV "abcd1efghi2j.a01f2345b067cde890f12gab345678c9"] sM ->5 - <1> ex-rv2cv sK/1 ->- 5 <#> gv[*foo] s ->6 -e syntax OK $ perl -MO=Concise -e ' sub foo { my $string = shift; return split( /\./, $string, 2 ); } foo( "abcd1efghi2j.a01f2345b067cde890f12gab345678c9" );' 7 <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 2 <;> nextstate(main 3 -e:1) v ->3 6 <1> entersub[t2] vKS/TARG,1 ->7 - <1> ex-list K ->6 3 <0> pushmark s ->4 4 <$> const[PV "abcd1efghi2j.a01f2345b067cde890f12gab345678c9"] sM ->5 - <1> ex-rv2cv sK/1 ->- 5 <#> gv[*foo] s ->6 -e syntax OK