my $subj = '';
foreach (decode_mimewords($mail->get('Subject'))) {
   my ($data, $charset) = @$_;
   if (defined($charset)) {
      $subj .= decode($charset, $data);
   } else {
      $subj .= $data;
   }
}