if ( $string =~ m/abc(def|xyz)/ ) { 
  # I didn't use ?:
  print "ok!" 
}