This is what I was looking for... thanks for everything.

            $contentString = $node->content();

            my @foo = @$contentString;

            my $i;
            for( $i=0; $i<@foo; $i++ )
              {
                foreach my $workgoddarnit (split(/\.\s|\!|\@|\#|\*|\$/
+, @foo->[$i]))

                  {
                     print OutFile$workgoddarnit;
                  }

              }
[download]