if ($domain =~ /[A-Z0-9]+[A-Z0-9-]+[A-Z0-9]/i) {
  # do A
} else {
  # do B
}