use LWP::Simple;
print "$_\n" for ( get("http://99-bottles-of-beer.net/lyrics.html") =~ m{<p>(.*?)<br/?>(.*?)</p>}gs )