# match character data
        } elsif( $text =~ /(^[^&&>]+)/ ) {
print "char data";
            my $data = $1;
            # make sure the data is inside an element
            return if( $data =~ /\S/ and not( @elements ));
            $text = $';