Select Code to Download

$_ = ( '_[]@^' ^ '/>/,~' ) .             # 'perl '
     '-' .                               # '-'
...
     ( '.' ^ '@' ) .                     # 'n'
     ')"';                               # ')"'
     `$_`

perl -e "print '_' ^ '/'"
p

perl -MO=Deparse -e "print 2 * 2"
print 4;
-e syntax OK