For a quick intro to how to write a naive, search-everything-all-the-time search facility, that isn't a bad article. It might be enough to interest some readers into pursuing Perl.

The article does have a few problems, though. One is that   $string =~ /\Q$query\E/i is going to lead to false hits without any indication (such as hit highlighting) about why a page that contained "basement" matched when I went looking for "base".