my $subject = "Sing Along and Dance with Desmond De Silva at Pegasus Reef Hotel! (raw: =?utf-8?Q?Sing=20Along=20and=20Dance=20with=20Desmond=20De=20Silva=20at=20Pegasus=20Reef=20Hotel=21?)";