http://www.perlmonks.org?node_id=1004148


in reply to XML Newbie

Using XML::XSH2, a wrapper around XML::LibXML:
open gibsonca.xml ; for //* { $t = .//text() ; if not($t and xsh:matches($t,'\S')) echo xsh:lineno(.) ; }
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ