while (<FOO_FILE>){
       if  (/$foo/){
            $that = 1;
       }
       if  (/$bar/){
            last;  # emergency exit from the loop ;-)
       }
       if  ($that){
             print $_;
       }
  }