in reply to Re: Extracting Data from a second line
in thread Extracting Data from a second line

while( <FH> ) {
    if (/red line/) {
       process(<FH>);
    }
}

[download]

This doesn't work as required. Replace

    process(<FH>);

with

    process(scalar <FH>);

In Section Seekers of Perl Wisdom