my @nodes = ( bless ( { 'tag' => 'html', 'data' => [ bless ( { 'tag' => 'head', 'data' => bless ( { 'tag' => 'title', 'data' => 'acme products' }, 'Node' ), bless ( { 'tag' => 'body', 'data' => [ 'some orphan text that needs to be in the output', bless ( { 'tag' => 'use' 'data' => [ bless ( { 'tag' => 'orphan', 'data' => 'action/'}, 'Node' ), bless ( { 'tag' => 'qd' 'data' => 'action' }, 'Node' ), bless ( { 'tag' => 'orphan', 'data' => '/main.aXML' }, 'Node' ) ] }, 'Node' ) 'some more orphan text', ] }, 'Node' ) ] }, 'Node' ) ); #### my @nodes = ( Node->new( html => [ Node->new( head => Node->new( title => 'acme products' ), ), Node->new( body => [ 'some orphan text that needs to be in the output', Node->new( use => [ 'actions/', Node->new( qd => 'action'), '/main.aXML', ), 'some more orphan text', ], ), ] ), ); #### my @nodes = ( ' acme products some orphan text that needs to be in the output', Node->new( use => [ 'actions/', Node->new( qd => 'action' ), '/main.aXML' ] ), 'some more orphan text ', )