# field we want
my $FIELD = 'comment';
my $TEXT = 'text';

# flag && stuff
my $com = "";
my $text = 0;
my %UNIQ;
my $i = 0;
my $str = "";

sub start (@) {
  shift @_;
  if ($_[0] eq $FIELD) {
    $com = $_[2];
  } elsif ($com ne "" && $_[0] eq $TEXT) {
    $text = 1;
  }
}

sub end (@) {
  shift @_;
  if ($_[0] eq $FIELD) {
    $com = "";
    # $i=0;
    $str = "";
  } elsif ($_[0] eq $TEXT) {
    $text = 0;
  }
}

sub text (@) {
  # shift @_;
  if ($text && $_[1]=~/\S/) {
    # $UNIQ{$com}{$_[1]}++;
    # $i++;
    if ($str) { print "$_[0]\n'$str','$_[1]'\n$com\n";exit;}
    $str .= $_[1];
  }
}

my $parser = new XML::Parser(Handlers => { Start => \&start,
                                           End => \&end,
                                           Char => \&text,
                                         });
$parser->parse(*STDIN);
[download]