Thanks for the reply First I experimented with this below code on a single file.

perl -ne 'print if /Pattern1/ .. /Pattern2/' file1
[download]

This worked for me. But my actual intent is to do this in a loop on multiple files. My code looks as below

#!/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;}
}
[download]

when i execute this code, i'm getting below message

"Use of uninitialized value in pattern match (m//) at temp.pl line 11.
+"
[download]