use strict;
use warnings;

use Data::Dumper;

my $file = "data.xml";
my @path;

open(XML,"<".$file) || die "Unable to open file '$file':  $!\n";
while (<XML>) {
    if (/<ncp_directory/i) {
        my ($dir) = (/name=\"(.+?)\"/i);
        push @path, ($dir);
    }
    if (/<\/ncp_directory/i) {pop @path;}
    if (/ncp_file/i) {
        my ($fname) = (/name=\"(.+?)\"/i);
        my ($md5) = (/md5=\"(.+?)\"/i);
        my $full_path = join("\\",(@path),$fname);
        print "$md5 Name = $fname\n";
        print "(Full path = $full_path)\n\n";
    }
}
close(XML);