Select Code to Download

use LWP::Simple;
my $page = get("http://www.google.de");
...
if ( ( my $position = index $page, "font-family" ) >= 0 ) {
    print "Found at $position.\n";
}

</title><style><!--body,td,a,p,.h{font-family:arial,sans-serif;}