#!/usr/bin/perl -d

use LWP;
use strict;
use warnings;

my $ua = new LWP::UserAgent;

my $r = $ua->get("http://groups.yahoo.com");

if ($r->is_success)
{
    if ($r->content =~ m/^\s+\S$/m)
    {
    print "I saw some trailing spaces...\n";
    }
    else
    {
    print "Oppsie! I did not see any trailing spaces...\n";
    }
}
else
{
    die "Failed miserably\n";
}