foreach my $line ( ... ) { ...