Perl Special Variables by FizzyTea

print('!" #$3333%0&\'(1000 1000)1000 1000*+,\x09-0\x09./\x09\n0test.pl\x091\x092\x093\x094\x095\x096\x097\x098\x099: \n-;\x1c<1000=60>1000?0@[0\\]5.014002^STDOUT_TOP\x09_`{|0}~STDOUT'.replace(/(.)([\x1c\w .\n-]*)\x09?/g,'$$$1=$2\n'))

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page