>perl -MO=Concise,-exec -e"$x =~ '^something'"
1  <0> enter
2  <;> nextstate(main 1 -e:1) v:{
3  <#> gvsv[*x] s
4  </> match(/"^something"/) vKS/RTIME
5  <@> leave[1 ref] vKP/REFC
-e syntax OK