Select Code to Download

    # Create a new, empty, scalar
    my $text = "";
...

     # .. and parse!
     $p->parse($full_text);

     # now hack off the first lump of words
     @list_of_words = split /[ \t\r\f]+/,
                             $text,
                             $n;