Select Code to Download

sub is_ms_num {

...
  # looks like its good, return it.
  return $string;
}

sub atomize {
  my $string = shift;
...
  }
  return undef;
}

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

sub is_ms_num_re {
  my $rval = shift;
...
    undef;
  }
}