use strict; use warnings; use XML::TreeBuilder; my $xmlStr = <<'STR'; ##

##

    
       
                
                        
                                User
                                Weak Password
                                Locked Out
                                Disabled
                        
                        
                                Guest
                                Weak
                                -
                                Disabled
                        
                        
                                SUPPORT_388945a0
                                -
                                -
                                Disabled
                        
                        
                                Administrator
                                -
                                -
                                -
                        
                
        
        
                
                        
                                Drive Letter
                                File System
                        
                        
                                C:
                                NTFS
                        
                
        
    

##

##

STR

my $tree = XML::TreeBuilder->new;

$tree->parse ($xmlStr);

for ($tree->find ('Detail')) {
    for ($_->find ('Row')) {
        print "Col: " . $_->as_text () . "\n" for ($_->find ('Col'));
    }
}

##

##

Col: Guest
Col: Weak
Col: -
Col: Disabled
Col: SUPPORT_388945a0
Col: -
Col: -
Col: Disabled
Col: Administrator
Col: -
Col: -
Col: -
Col: C:
Col: NTFS