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"}
}