updates @ m.blog

Need a grouphug?

#!/usr/bin/perl
use LWP::Simple;
$_ = get('http://grouphug.us/random/');
m| (.*?)

|ism;
$_ = $1;
s/< ([^>]+)>//ig;
s/^s*//;
s/s*$//;
print “$_n”;

Warning: reading people’s confessions is addictive, and occasionally NWS.