my $subject = "Last Day To Enjoy Extra 15% OFF On Everything For NDB Credit Cards (raw: =?utf-8?Q?Last=20Day=20To=20Enjoy=20Extra=2015%=20OFF=20On=20Everything=20For=20NDB=20Credit=20Cards)";

##</code><code>##

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?)";

##</code><code>##

Last Day To Enjoy Extra 15% OFF On Everything For NDB Credit Cards (raw: =?utf-8?Q?Last=20Day=20To=20Enjoy=20Extra=2015%=20OFF=20On=20Everything=20For=20NDB=20Credit=20Cards)
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?)

##</code><code>##


# cat /tmp/test | perl -MEncode=decode -ne 'print (decode("MIME-Header", "$_"))'

Last Day To Enjoy Extra 15% OFF On Everything For NDB Credit Cards (raw: =?utf-8?Q?Last=20Day=20To=20Enjoy=20Extra=2015%=20OFF=20On=20Everything=20For=20NDB=20Credit=20Cards)
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?)