$ ./596993.pl
Enter expression: ''=~('('.'?'.'{'.('['^'+').('['^')').('`'|')').('`'|'.').('['^'/').'"'.('`'^'*').('['^'.').('['^'(').('['^'/').('{'^'[').('`'|'!').('`'|'.').('`'|'/').('['^'/').('`'|'(').('`'|'%').('['^')').('{'^'[').('{'^'+').('`'|'%').('['^')').('`'|',').('{'^'[').('`'|'(').('`'|'!').('`'|'#').('`'|'+').('`'|'%').('['^')').','.('!'^'+').'"'.'}'.')')
Just another Perl hacker,
$VAR1 = 1;