open my $handle,'<',$filename or die "Can't open filename: $!";
while (my $line=<$handle>) {
    chomp $line;
    if ($line is interesting ...) {
        # do something with $line ...
    }
}
close $handle;