use WWW::Mechanize;

my $mech = WWW::Mechanize->new();

$mech->get("http://search.cpan.org/");
$html = $mech->content();

$s = '<center class="categories">';
$e = '</center>';

$html =~ s/\r//g;
$html =~ s/\n/ /g;

my $start = index($html,$s);

print $start;