in reply to obfuscation : Get Well Soon

perl -e 'print grep y/Uie,ygDG/Wet leGS/,
  keys %{{"Die,Ugly Goon" => "Message"}};'

[download]

In Section Seekers of Perl Wisdom