#!/usr/bin/env perl

use strict;
use warnings;

use HTML::TokeParser;

my $p = HTML::TokeParser->new(shift||"index.html");
while(my $result = $p->get_tag("textarea")) {
    if ($result->[1]->{'name'} eq 'report' ) {
        my $text = $p->get_trimmed_text;
        print "Text:\n\n$text\n";
    }
}