while (<IN>) {
    my $line = $_;
    chomp $line;
    # now do something with $line which we got from the file
}