Hi group! Ok, I'm trying to open all files in the directory containing my script, and search each one for lines containing my search string. This is my code so far: $i = 0; opendir(logdir, '.') or die "Can't open directory."; print "Enter string to search for: "; $searchstring = <>; print "\n"; #print join("\n", readdir(logdir)); print "\n"; @filelist = readdir(logdir); while($i < ($#filelist)) { open(logfile, @filelist[$i]); $i++; while(<logfile>) { #if(#####line I'm currently on is m/$searchstring/i) { print; } } } print "Press enter to continue..."; <>; $i = 0; while($i < ($#filelist)) { close(logfile, @filelist[$i]); $i++; } closedir $logdir; Now the problem is, how do I specify "The line I'm currently working on"? Right now my program prints every line from every file in my directory, but once I figure this out I think it should limit the output to only lines containing my search string. Can someone help me out?