open(FH,"file");

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