sub validate_re {
  my $re = shift;
  eval { $re = qr/$re/ };
  return $@ ? undef : $re
}