updates @ m.blog

Random Grouphug

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.

Comments