chomp (my @lines = grep (!/^fail/, <>));