DB<27> $rx = qr($r)i;    # or traditionally qr/$r/i

  DB<28> p $rx
(?^ui:abc|xyz)
  DB<29> p "XYZ" =~ $rx
1