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

[CountZero]

Tell Perl that your records are terminated by ".EON\n\n".

use Modern::Perl;

{
    local $/ = ".EON\n\n";
    while ( my $record = <DATA> ) {
        say "I found: $record";
        # ... now do something with $record ...
    }
}

__DATA__
$ NAME : corry
$$.Inc s d
$$.Oc s
$$.TO

G1 ty n1 EE EE M T1 T2 $$SRU
G2 n1 y OO OO M T3 T4 $$SRU
.EON

$ NAME : patrick
$$.Inc c d
$$.Oc c
$$.TO

G1 td n3 EE EE M T5 T6 $$SRU
G2 n3 y OO OO M T7 T8 $$SRU
.EON

[annel]

Hi, thanks for your response. I did it as following but nothing display of the output.

use warnings;
use strict;
my $test;
my @words;
open(INFO,"<","testing.pl")||die"Can't open file:$!\n";
chomp (@words=<INFO>);
close(INFO);

    local $/ = ".EOM\n\n";
    while ( my $record = @words) {
    print $record;
            }

Where did I make mistake?

[soonix]

CountZero's advice is more than just "setting $/". You have to
1. define $/ before reading your file
2. of course, spell your record separator correctly, as noted by jakeease
3. change your logic accordingly, because a "record" now contains multiple lines (those belonging to one name)

[annel]

Thanks for your response. I have updated my code and question. Can you give me some idea where to define $/?

[jakeease]

CountZero's suggestion is

local $/ = ".EON\n\n";

you simply have a typo:".EOM...