while (my $line = <FILE>) { ... }

##</code><code>##

while (<FILE>) { my $line = $_; ... }