my $foo = qr/.../;
my $bar = qr/..../;
my $foobar = qr/$foo(?:$bar)+/;
...
while (<>) {
 ...
 if (/$foobar/) {
...