#!/usr/bin/perl
use strict;
use warnings;

our $fh;
our $log;

open($fh,">","file1");
open ($log,">","file2") or die "can not open file $log : $!\n" ;
while($fh){
   if (/Pattern1 .. /Pattern2/)
  {printf $log;}
}