How to print a file line by line?

[Anonymous Monk]

I want to print the contents of file line by line, with some additional formatting added to each line.

Here's what I've tried:

print <IN> , "<br/>\n" ;

Originally posted as a Categorized Question.

[Anonymous Monk]

<IN> in scalar context will only return one line per call, while in list context it will return a list of all the (remaining) lines in the file. Therefore, replace

print <IN> , "<br/>\n" ;

with

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

[Anonymous Monk]

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

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

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