Thanks to all for the suggestions. I was afraid there wasn't a really easy method.

I hadn't thought of the WWW::Search modules. Thanks, I'll check all of these out.