my $foo = qr/foo/;
while ( get_line($fh) =~ m/($foo)(bar)/ ) {
   ...;
   $foo = qr/FOO/;  # $foo gets changed
}