script

[Hugh Pierce]

#!/usr/local/bin/perl

        $INFILE="dog2.txt";
        open(FILE,$INFILE);
        while ($LINE=<FILE>)
        {
                chomp($LINE);
                $TEXT .= $LINE;
        }
        close(FILE);

{
        package MyParser;
        use base qw(HTML::Parser); 
        sub text
        { 
                $text = $_[1]; 
                $alltext .= $text;
#               print "$text\n";                        # No, I don't want
it printed out as it occurs
        }
}

        MyParser->new->parse($TEXT);
        print $alltext;                         # I want this variable to
manipulate, but ...

--HAPS