sub is_ms_num_re {
  my $rval = shift;
  if ($rval =~ /(?:IC|JA|CM|OL|OM)\d{6}[\w+-](?:-\d{,3}-\d{,3})?/) {
    return $rval;
  } else {
    undef;
  }
}