use strict;
use warnings;
use Mojo::DOM;

my $text = <<END;
<a>
word1
word2
word3
</a>
<a>
word4
word5
</a>
<a>
word6
word7
</a>
END

my $dom = Mojo::DOM->new($text);

my $i = 1;
for my $chunk ( $dom->find('a')->each ) {
	print 'Chunk ' . $i++ . ': ' . $chunk->text . "\n";
}

##</code><code>##

Chunk 1: word1 word2 word3
Chunk 2: word4 word5
Chunk 3: word6 word7