Help for this page
use strict; use warnings; ... close(FILE); close(OUT);
while (my $line = <FILE>) { # ... Use $line where you would normally use $_ }