print/(.): /?$`?"set $`of $1 to $1=$'":"value of $1 is now $'":/.$/?"$& = ".("3
you win!","1
tie!","13
you lose!
a wins!")[$$%3]:"rule d not set
"x($.>8).$/while<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).