$_ = ( '_[]@^' ^ '/>/,~' ) . # 'perl '
'-' . # '-'
( '>]' ^ '[}' ) . # 'e '
'"' . # '"'
( '^])@*{.|~%{{]\\-' ^
'./@.^[}(:`))}-\\' ) . # 'print STDERR qq'
'(' . # '('
( '*\\(]{\\./(@[-^-%^,{(!]+>^' ^
'@)[)[=@@\\(>_~]@,@[@@>@[,' ) . # 'just another perl hacker'
'\\' . # '\'
( '.' ^ '@' ) . # 'n'
')"'; # ')"'
`$_`
####
perl -e "print '_' ^ '/'"
p
##
##
perl -MO=Deparse -e "print 2 * 2"
print 4;
-e syntax OK