#!/usr/bin/perl 
use strict; 
use warnings; 
our $fh; 
our $log; 
open($fh,"<","block.power"); 
open ($log,">","temp.log")
or die "can not open file $log : $!\n" ; 
while($fh){
     if (/Pattern1>(.*?)<Pattern2/) {
              print $log $1;  
              }  
   } 
close $fh;
close $log;