$_ = ( '_[]@^' ^ '/>/,~' ) . # '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