while (<>)
{
 chomp;
 print "$_<BR>";    # (Optional: print "$_<BR>\n"; for readability)
};

##</code><code>##

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)
};