use strict;   
use warnings;   
open my $file1, '<', 'features.txt' or die 'Cannot open file2';  
  
while( <$file1> ){   
 if($_ =~ /CR/)/*if a line matches CR*/ 
	{ 
 
Need help here 
-----------loop----------- 
	 file1++ until a line matches the word "CR" again,if it matches the word "CR"comeout of the loop with the current line as line number 
	 print $_ if the line contains the word "data" or "case" in it 
-------------------- 
	} 
}  
close $file1;

use strict;  
use warnings;  
while (<DATA>){  
    next if !(/CR/ ... /CR/);  
    print if /(DATA|CASE)/;   
}  
__END__  
MY DATA      # Do not print  
Return (CR)  # Enable printing  
More DATA    # Print  
any text     # Do not print  
In any CASE  # Print  
another CR   # Disable printing  
another CASE # Do not print

perl -n -e"print if /CR/ ... /CR/ and /DATA|CASE/;"

MY DATA      # Do not print  --->Print,if a line contains Data or Case,it has to printed  
Return (CR)  # Enable printing   
More DATA    # Print   
any text     # Do not print   
In any CASE  # Print   
another CR   # Disable printing  ---> Print if the following lines has a Data or Case 
another CASE # Do not print ---> print ,if the line has a data or Case it has to be printed irrespective

use strict; 
use warnings; 
my $cr_line = ''; 
while (<DATA>){ 
    if (/CR/){ 
        $cr_line = $_; 
    } 
    elsif (/DATA|CASE/){ 
        print $cr_line, $_; 
        $cr_line = ''; 
    } 
} 
__END__ 
MY DATA      # Print,if a line contains Data or Case,it has to printed 
Return (CR)  # Print ("DATA" in followin block) 
More DATA    # Print 
any text     # Do not print 
In any CASE  # Print 
another CR   # Do not print 
something    # Do not print 
this CR      # Print ("CASE" in following block) 
stuff        # Do not print 
just in CASE # Print

use Win32::OLE; 
$file = "C:\\temp\\MyTest.xls"; 
$excel = Win32::OLE->GetActiveObject('Excel.Application'); 
unless($excel) 
{ 
    $excel = new Win32::OLE('Excel.Application', \&QuitApp) 
                 or die "Could not create Excel Application object"; 
} 
 
$excel->{Visible} = 1; 
$excel->{SheetsInNewWorkBook} = 1; 
$workbook = $excel->Workbooks->Add(); 
$worksheet = $workbook->Worksheets(1); 
$worksheet->{Name} = "Directory listing"; 
 
@files = glob('*'); 
 
$range=$worksheet->Range('A1:C1'); 
$range->{Value} = ['Filename', 'Size', 'Time']; 
 
my $cellrow = 2; 
 
foreach $file (@files) 
{ 
    my ($size,$mtime) = (stat($file))[7,9]; 
    $range=$worksheet->Range(sprintf("%s%d:%s%d",'A',$cellrow,'C',$cellrow)); 
    $range->{Value} = [$file,$size,scalar localtime $mtime]; 
    $cellrow++; 
} 
$workbook->SaveAs($file); 
 
sub QuitApp 
{ 
    my ($object) = @_; 
    $object->Quit(); 
}

    elsif (/DATA|CASE/){ 
        if ($cr_line) { 
            print $cr_line; 
            $cr_line = ''; 
        } 
        print $_; 
    }

my $row = 0; 
my $col = 0;

$worksheet->write($row, $col, $cr_line); 
$row++; 
$worksheet->write($row, $col, $_);  
$row++;

/([^\\\/]+ \. (?:min?:cfg|c|h|s)) [\s#]/xms;

use strict; 
use warnings; 
use Win32::OLE; 
my $file  = "MyTest.xls"; 
my $excel = Win32::OLE->GetActiveObject('Excel.Application'); 
unless ($excel) { 
    $excel = new Win32::OLE( 'Excel.Application', \&QuitApp ) 
        or die "Could not create Excel Application object"; 
} 
$excel->{Visible}             = 1; 
$excel->{SheetsInNewWorkBook} = 1; 
my $workbook                  = $excel->Workbooks->Add(); 
my $worksheet                 = $workbook->Worksheets(1); 
$worksheet->{Name}            = "CR LINES"; 
my $cr_line = ''; 
my $cellrow = 1; 
my $range                     = $worksheet->Range("A$cellrow:B$cellrow"); 
$range->{Value}               = [ 'CT', 'DATA/CASE' ]; 
$cellrow++; 
while (<DATA>){ 
    if (/CR/){ 
        $cr_line = $_; 
    } 
    elsif (/DATA|CASE/){ 
        if ($cr_line) { 
#            print $cr_line; 
            $range                        = $worksheet->Range("A$cellrow:A$cellrow"); 
            $range->{Value}               = [ $cr_line ]; 
            $cellrow++; 
            $cr_line = ''; 
        } 
#        print  $_; 
        $range                        = $worksheet->Range("B$cellrow:B$cellrow"); 
        $range->{Value}               = [ $_ ]; 
        $cellrow++; 
    } 
}  
 
$workbook->SaveAs($file); 
sub QuitApp { my ($object) = @_; $object->Quit(); }  
 
 
__END__ 
MY DATA       
Return (CR)   
More DATA     
any text      
In any CASE   
another CR    
something     
this CR       
stuff         
just in CASE

    if (/CR/){ 
        $cr_line = $_; 
        $cr_line =~ s/\A.*           # Match anything before CR 
                       CR            # Match CR 
                       [^\d]+        # Match atleast one non-digit after CR 
                       (\d+)         # Match and save the number 
                       .*            # Match the rest of the line 
                       /CR $1/xms;   # Replace match with 'CR' & num 
    }

  
 
                       [^\d]+        # Match atleast one non-digit after CR  
 
                       [^\d]*        # Match possible non-digits after CR

                       [^\d]+        # Match atleast one non-digit after CR  
 
/*Case# 164422 CR# 184271*/ --->Getting printed as CR 184271  
but 
/* Case162083/CR184631 */ --> printed as is

                       [^\d]+        # Match atleast one non-digit after CR   
  
Why is  
 
/*Case# 164422 CR# 184271*/ --->Getting printed as CR 184271   
but  
/* Case162083/CR184631 */ --> printed as is

But why? 
  
/*Case# 164422 CR# 184271*/ --->This also has a non-digit 
but   
/* Case162083/CR184631 */ --> This also has a non digit