#!/usr/bin/perl
use strict;
use warnings;
my $outfile="out.html";
my $final="final.txt";
open OUTFILE, "<$outfile";
open FINAL, ">$final";
while (<OUTFILE>) {
        s/<br>//gi;
        print FINAL if /(line\d*=(\d|[A-Za-z]{3}\s).)/;
}