Select Code to Download

C:\Windows\system32>perl -MO=Concise -E"substr((  substr( $p, 0, 1 ) =
+ '123' ), 0, 1 ) = 'x';"
d  <@> leave[1 ref] vKP/REFC ->(end)
...
d           <$> const[IV 1] s ->e
-e syntax OK