this is a link to a book called

etc etc ##

##

$matchtext = shift;

$page = "myfilename.html";    
open  PAGE,  $page;
@page_text = ;
close PAGE;

    foreach $page_line (@page_text) {
        if ($page_line =~ m/$matchtext/) {
            print "There was an instance of $matchtext\n"; 
            print "on this line:\n";
            print "$page_line\n";
        }
    }