while (<OUTFILE>) {
    s/<br>//gi;
    print FINAL if /(line\d=(\d||[A-Za-z]{3}).)/;
}
[download]

May be fugly (guys?) but that extracts the lines as you show them anyway. As for not having duplicates. I am not sure, but I will see if I can come up with something. I'm kinda a newb at perl, so...