\\//

##</code><code>##

@_=(do{("$=.175"*($]<<$])).'AR'},'s"/#5:er ','#&3 aR',
q/;""'$ /);print map{substr(\\//,$[,$]+$~=~m~.~)^$_}@_

##</code><code>##

++$....$..$.      #1 .. 11 or 1234567891011
--$--$---         #just a complicated way of saying 0
\\//              #SCALAR(0xc3064) note that the num my differ
$~=~m~.~          #evaluates to 1
$$=[$.++...$..$.];#second line evaluate to 0..10
@$$[@$$[$$$[$[]...$$$[$$$[$.]].$$$[$[]]];