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

<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" ;

[download]
with 
print map "$_<br/>\n", <IN>;

[download]

In Section Seekers of Perl Wisdom