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