Lest filenames with spaces, newlines or other funky bits in them trip you, you might want to get into the habit of coupling find and xargs with their respective nullbyte-termination parameters (see manpages):
find . -name \*.pm -print0 | xargs -0 grep foo____________Makeshifts last the longest.