my @words = @{ $splitter->words($parsed) };

##</code><code>##

my $words = $splitter->words($parsed);

foreach my $x (@$words) {
    print "$x\n";
}