in reply to How to print a file line by line?

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

[download]

You could also add a little $\ and local magic: 

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

[download]

In Section Seekers of Perl Wisdom