Select Code to Download

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

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