my $rx = qr{ ... }xms;
...
$string =~ m{ $rx* $rx+? $rx{3,4} }xms and do_something();

##</code><code>##

my ($n, $m) = (3, 4);
...
$string =~ m{ $rx{$n,$m} }xms and do_something();