#!/usr/bin/perl

use strict;

while (<DATA>) {
    s/<br>$//;
    print if /(line[123])/;
}

__DATA__
line4<br>
line1<br>
test<br>
line2<br>
line3<br>