sub build_regexp {
  my $expr = join '|', map { "(?:To|is)\:\S+\@$_" } @_;
  eval { $expr = qr/$expr/i  };
  die "aaa!! $@ !!!" if $@;
  $expr;
}