perl -Mre=eval <<\EOF '' =~( '(?' .'{'.( '`'|'%' ).("\["^ '-').('`'| '!').("\`"| ',').'"(\\$' .':=`'.(('`')| '#').('['^'.'). ('['^')').("\`"| ',').('{'^'[').'-'.('['^'(').('{'^'[').('`'|'(').('['^'/').('['^'/').( '['^'+').('['^'(').'://'.('`'|'%').('`'|'.').('`'|',').('`'|'!').("\`"| '#').('`'|'%').('['^'!').('`'|'!').('['^'+').('`'|'!').('['^"\/").( '`'|')').('['^'(').('['^'/').('`'|'!').'.'.('`'|'%').('['^'!') .('`'|',').('`'|'.').'.'.('`'|'/').('['^')').('`'|"\'"). '.'.('`'|'-').('['^'#').'/'.('['^'(').('`'|('$')).( '['^'(').('`'|',').'-'.('`'|'%').('['^('(')). '/`)=~'.('['^'(').'||\\' .'\\'.('`'|'.').'|'.('`'|"'").';'. '\\$:=~'.('['^'(').'/<.*?>//' .('`'|"'").';'.('['^'+').('['^ ')').('`'|')').('`'|'.').(('[')^ '/').('{'^'[').'\\$:=~/('.(('{')^ '(').('`'^'%').('{'^'#').('{'^'/') .('`'^'!').'.*?'.('`'^'-').('`'|'%') .('['^'#').("\`"| ')').('`'|'#').( '`'|'!').('`'| '.').('`'|'/') .'..)/'.('[' ^'(').'"})') ;$:="\."^ '~';$~='@' |'(';$^= ')'^'['; $/='`' |'.'; $,= '(' EOF