Report question

Question: What's the most defensive way to loop through lines in a file with Perl?