Select Code to Download

{
    local $^I = ".bak";
...
        print;
    }
}

if((my($dir) = /^<Directory\s+(.*)>/i) ... /<\/Directory>/i) {
    if(defined $dir) {  # first line in the block
...
        ... # do something with these lines
    }
}