local $/;
open my $fh,"<filename";
my $file = <$fh>;
close $fh;
my ($content) = $file =~ /<Directory Filename="([^"]*)"/;