#!/usr/bin/perl

use WWW::Mechanize;

$url = "http://stats.necron.org/index.html";

my $mechanize = WWW::Mechanize->new(autocheck =>1);

$mechanize->get($url);

my $page = $mechanize->content;

$page =~ s/<(?:[^>'"]*|(['"]).*?\1)*>//gs;

open(FH, ">hi.txt");

print FH $page;

close(FH);

# i just want the lines 80-180 to go into hi.txt