DB<44> $pat='(x)\1'

  DB<45> $mod='i'

  DB<46> 'xX' =~ /(?$mod)$pat/; say "$&:$1"
xX:x

  DB<47>