Perl is evil. The proof of this assertion is that

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