Hello, I'm trying to write a simple Perl script to output certain lines from a logfile that contain any of a few phrases. I have two questions on the script I've done: use strict; use warnings; open my $infile, '<', $ARGV[0] or die "Can't open $ARGV[0]"; # Put in the badlist words that you want lines containing that # word to be excluded. my @goodlist = ("word1", "word2"); while ( <$infile> ) { foreach my $term(@goodlist) { if (/$term/) { print; } } } 1.) (Major question) I was wondering if I could get rid of the foreach and instead use some construct like: If (/@goodlist/) {...} Meaning "if the current line has *any* of the words in the array..." 2.) (Minor question) The current script has a bug, it will output the line twice if it contains both words. I was wondering if the foreach has some form of "continue" statement that stops the current iteration of foreach and go to the next one so the line does not output twice. I couldn't find anything in the docs for this, though. foreach my $term(@goodlist) { if (/$term/) { print; continue; # ??? } } Thanks, GlenThread Next