my $email = Email::Simple->new(Email::StripMIME::strip_mime($text));;
my $subject = decode('MIME-Header', $email->header('Subject'));
my $email = Email::Simple->new(Email::StripMIME::strip_mime($text));;
my $subject = decode('MIME-Header', $email->header('Subject'));