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

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