#!/usr/bin/perl
use strict;
use warnings;
use File::Spec::Functions qw(splitpath splitdir);

my @files = qw(
    .\folder1\folder11\elementA.xml
    .\folder1\folder11\elementB.xml
    .\folder2\folder22\element1.xml
    .\folder2\folder22\folder222\element11.xml
);

for my $file (@files) {
    my ($volume, $directory, $filename) = splitpath($file);
    print <<EOT;
Input:     $file
Volume:    $volume
Directory: $directory
Filename:  $filename
splitdir gives:
EOT
    for my $dir ( splitdir $directory) {
        print "$dir\n";
    }
    print "\n";
}