$ perl -MO=Concise,-exec -e'join($s, $x, $y, $z)'
1  <0> enter
2  <;> nextstate(main 1 -e:1) v:{
3  <0> pushmark s
4  <#> gvsv[*s] s
5  <#> gvsv[*x] s
6  <#> gvsv[*y] s
7  <#> gvsv[*z] s
8  <@> join[t5] vK/2
9  <@> leave[1 ref] vKP/REFC
-e syntax OK