#!/usr/bin/perl -w 
    use strict; 
    use Spreadsheet::WriteExcel; 
my $match; 
    my $workbook = Spreadsheet::WriteExcel->new("Tech_BlacklistedCRs.xls"); 
    my $worksheet  = $workbook->addworksheet(); 
	my $cr_line = '';  
open my $line, '<', 'File.txt' or die 'Cannot open file';  
  
while (my $match = <$line1>) 
	{ 
    if ($match =~ /CR:/){  
	   $cr_line = $match;  
	   #print $cr_line; 
 
    } 
 
    elsif ($match =~ /Error:/){  
		 
 
    	if ($match =~ /Perforce path:/) { 
 
      #print $cr_line, $match;  
		 $worksheet->write($i, 0, $cr_line); 
		 $worksheet->write($i, 1 , $match); 
       $cr_line = '';  
		$i++; 
		#$j++; 
 
    }  
}  
 
$workbook->close();