#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;

my $url =
'http://www.perlmonks.org/index.pl?op=login&node_id=109&user=teabag&passwd=mypasswd';

print "Checking XP Nodelet\n\n";

my $page =
  LWP::UserAgent->new->request( HTTP::Request->new( GET => $url ) )->content;

$page =~ s/\s+/ /gi;
$page =~ s/\n//gi;

my @monkinfo = $page =~ m/(XP\ Nodelet.*?<\/tbody>)/g;

foreach my $line (@monkinfo) {
    $line =~ s/<\/th>/\n->/gi;
    $line =~ s/<.*?>//gi;
    $page =~ s/\s+/ /gi;

    print "$line\n";
}