if ($header =~ /^[Ss]ubject/) {
        my ($words, $strings) = atomize( $header );
        $key = search_ms_nums(@{$words}) || search_ms_nums(@{$strings});
      }