Perl is evil

Perl is evil. The proof of this assertion is that

''=~('(?{'.('],)@*@'^'-^@.^`').'"'.(',.@:@}=():,:,^'^'`[+_`.^@@_^_^|').',$/})')
will print my name. I rest my case.