DB<6> $rx=qr(/$r/i);   # strike it, see update

  DB<7> p $rx
(?^u:/abc|xyz/i)