in reply to small search script

Gee! Does it work like ... 
find . -name '*.html' -exec grep 'whatever' {} \;

[download]

In Section Seekers of Perl Wisdom