20 Minutes: Regular Expressions I

    while(<DATA>) {
        if (m/the/) {
            print "FOUND> $_";
        }
    }
    __DATA__
    This is an example of some data you might find in an
    input file.  To make things simple, I've put it at the
    end of the source file, which you can access with the
    filehandle DATA.  Our little program will loop through
    the input and print out any line that has the word
    "the" in it.