use LWP::Simple;

$html = get "http://search.cpan.org/";

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

$txt = substr $html, index($html,$s), index($html,$e);
print "$txt\n";