Note: This isn't Perl, but still related.

The other day I was trying to figure out how to do this with find on Unix, and tye informed me of the method below:

find . -name 'filename' -exec sh -c 'grep string1 $0 | grep string2' {
+} \; -print
[download]

You could also use egrep, or any other command that would do the trick.

Update: This requires that the two strings be on the same line.