#!c:\perl\bin #Required: Mechanize, LWP use WWW::Mechanize; #available free from cpan.org my $url = "http://www.instructables.com"; my $mech = WWW::Mechanize->new(); $mech->get($url); $contents = $mech->content; if ($contents =~ m:Instructables - Make, How To, and DIY<\/title>:){ print "I found instructables!"; }