$ perl -MO=Concise,-exec -e'local $s = "foo"' 2>&1 | grep assign
5  <2> sassign vKS/2

$ perl -MO=Concise,-exec -e'local ($s) = "foo"' 2>&1 | grep assign
7  <2> aassign[t2] vKS