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