Как добавить модификатор в цитируемое регулярное (qr) выражение

Есть ли простой способ добавить модификаторы регулярных выражений, такие как 'i', в цитируемое регулярное выражение? Например:

$pat = qr/F(o+)B(a+)r/;
$newpat = $pat . 'i'; # This doesn't work

Единственный способ, который я могу придумать, - это вывести "$ pat \ n" и вернуть (? - xism: F (o +) B (a +) r) и попробуйте удалить 'i' в ? - xism: с заменой