$M="\$M=\"R\";\$N=\$M;\$N=~s/\\\\/\\\\\\\\/g;\$N=~s/\\\"/\\\\\\\"/g;\$N=~s/\\\$/\\\\\\\$/g;\$M=~s/R/\$N/;print scalar reverse \$M;";$N=$M;$N=~s/\\/\\\\/g;$N=~s/\"/\\\"/g;$N=~s/\$/\\\$/g;$M=~s/R/$N/;print scalar reverse $M;