my @File=<INPUT>;
close INPUT;
chomp(@File)
{
 local $"="<BR>";   # (Optional: local $"="<BR>\n"; for readability)
 print "@File<BR>"; #(Optional: print "@File<BR>\n"; for readability)
};