Cómo agregar un modificador a una expresión regular (qr) citada

¿Existe una manera fácil de agregar modificadores de expresiones regulares como 'i' a una expresión regular citada? Por ejemplo $pat = qr/F(o+)B(a+)r/; $newpat = $pat . 'i'; # This doesn't work La única forma en que puedo pensar es enprint ...