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