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