This is my name in Perl:

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