$re = qr/$foo/;
print FILE $re, "\n";
# ... and at a later time ...
$re = <FILE>
chomp $re;
if($line =~ /$re/) { # blah blah blah....