print $element->{textContent}