Help for this page
while (<OUTFILE>) { print FINAL $_ if /(my first line)/; print FINAL "$_\n" if /(my second line)/; print FINAL $_ if /(my third line)/; }
s/<br>$//;