Obfuscation

This is my name in Perl:

						
''=~('(?{'.('[,@.)}'^'+^)@]]').'"'.('[%*:^~<@[:<^(}'^'+@^_,^^!)[^?[_').'})')