Re^4: How to extract certain range of text and display it?

[annel]

Here is the code I updated. Please check it. Thanks.

use warnings;
use strict;
my $test;
my @words;
open(INFO,"<","testing.pl")||die"Can't open file:$!\n";
chomp (@words=<INFO>);
close(INFO);
foreach @words){
if(/^\$ NAME : corry/ .. /\.EON/){
$test=$1;
print $test;
}
}