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