REBOL [
    Title: "Search Multiple Web Pages"
    File:  %webfinder.r
    Date:  20-May-1999
    Purpose: {
        Search multiple web pages for a string, and print
        the URL of the ones where it was found.
    }
    Category: [web file net 1] 
]

sites: [
    http://www.rebol.com
    http://www.cnet.com
    http://www.wsj.com
    http://www.etrade.com
]

foreach url sites [
    if find read url "REBOL" [print url]
]