use LWP::Simple;

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