while (my $line = <FH>) {
    chomp($line);   # you probably want to do this
    # do whatever with contents of $line
}