Re: simple question on next line parameter

[Polyglot]

Why not just do it this way?

open OUTFILE, "<$outfile";
my @OUT = <OUTFILE>;
open FINAL, ">$final";
my $line;
 foreach $line(@OUT) {
    if ($line=~/(my first line)<br>/) {print FINAL "$1\n"}
    if ($line=~/(my second line)<br>/) {print FINAL "$1\n\n"}
    if ($line=~/(my third line)<br>/) {print FINAL "$1\n"}
}

Blessings,

~Polyglot~

[Bloodnok]

...or even

open OUTFILE, "<$outfile";
open FINAL, ">$final";

foreach my $line (<OUTFILE>) {
    print FINAL "$1\n" if
        $line =~ /(my first line|my second line|my third line)<br>/);
}