while (<FOO_FILE>){
     if  (/$foo/){
          $that = 1;
     }
     if  (/$bar/){
          $that = 0;
     }
     if  ($that){
           print $_;
     }
}