Re: regex on previous lines (or previous lines, or FIFO array)

[Anonymous Monk]

previous lines -> Re: print line 5 lines previous to comaprison line!

my @lines ;
push @lines, scalar readline $handle for 1 .. 5;
while( readline $handle ){
    ...
    shift @lines;
    push @lines, $_;
}