Select Code to Download

<!-- Main Area -->

<h1>The links you want are between the Main Area Comment and this comm
+ent</h1>

<!-- other boxes can be loaded by the subroutines? bad at end? hmmph -
+->

my ($chunk) = $content =~ m#<!-- Main Area -->(.*?)<!-- other boxes ca
+n be#s;

my ($poet) = $chunk =~ m!/poet/([^/ '"]+)!;
my @poems  = $chunk =~ m!(/Poems/\d+)!g;
@poems = map{ "$site_url$_" } @poems;