print "$_<br>\n", while <IN>;

##</code><code>##

{
  local $\ = "<br>\n";
  print while <IN>;
}