my $regex1 = qr/ \[ [^]]+ \] /x; my $regex2 = qr/abc/i; my $imba_regex = qr/ $regex1 $regex2 /x;