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