#!/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";
}


##</code><code>##

@_="the journeyman larry disciple keeps learning\n"=~/(.)/gs,
print(map$_[$_-77],unpack(q=c*=,q@QSdM[]uRMNV^[ni_\[N]eki^y@))