Select Code to Download

$ diff -u \
   <( perl -Mstrict -Mwarnings -MO=Concise -e'my ($u, $v)    = split /
+,/, "U,V";' 2>&1 ) \
   <( perl -Mstrict -Mwarnings -MO=Concise -e'(my $u, my $v) = split /
+,/, "U,V";' 2>&1 ) \
&& echo same
same

1  <0> enter
2  <;> nextstate(main 1 -e:1) v:*,&,{,x*,x&,x$,$
...
8  <2> aassign[t4] vKS
9  <@> leave[1 ref] vKP/REFC
-e syntax OK