basically what you want is something like this:

open(F,$ARGV[0]) or die $!;
while ( <F> ) {
     # remove \n
     chomp;
     # process the current line.
}
close(F);
[download]