C:\>perl -MO=Concise,-exec -e"$string='7';$num=int($string)"
1  <0> enter
2  <;> nextstate(main 1 -e:1) v:{
3  <$> const[PV "7"] s
4  <#> gvsv[*string] s
5  <2> sassign vKS/2
6  <;> nextstate(main 1 -e:1) v:{
7  <#> gvsv[*string] s
8  <1> int[t4] sK/1
9  <#> gvsv[*num] s
a  <2> sassign vKS/2
b  <@> leave[1 ref] vKP/REFC
-e syntax OK