You know, I don't think I've ever used grep in a perl script. I tend to go the long way around and run things through an if ($foo =~ /.../) construct. I'll have to make it a point to try grep a few times so I can add it to my toolbox.