$VAR1 = { 'press-release' => [ { 'PromoModuleTwo' => [ { 'LeftColoumn' + => [ + { + 'Heading' => [ + ' xxxxxx' + ], + 'PromoLink' => [ + 'XXXXXX' + ], + 'SubHeading' => [ + 'XXXXXX.' + ], + 'PromoText' => [ + 'LEARN MORE2' + ], + 'PromoImage' => [ + 'XXXXXX/' + ] + } + ], 'ModuleBackgr +oundImage' => [ + 'XXXXXX' + ], 'ColorCode' = +> [ + 'YELLOW' + ], 'RightColoumn +' => [ + { + 'Tabs' => [ + { + 'Links' => [ + { + 'AssetLink' => [ + 'XXXXXX' + ], + 'AssetTitle' => [ + 'XXXXXX' + ], + 'AssetSource' => [ + 'xxxxxxx' + ] + }, + { + 'AssetLink' => [ + 'xxxxxx' + ], + 'AssetTitle' => [ + 'xxxxx' + ], + 'AssetSource' => [ + 'xxxxxx' + ] + } + ], + 'TabName' => [ + 'NEWS' + ] + }, + { + 'Links' => [ + { + 'AssetLink' => [ + 'XXXXXX' + ], + 'AssetTitle' => [ + 'XXXXXXk' + ], + 'AssetSource' => [ + 'XXXXXX' + ] + }, + { + 'AssetLink' => [ + 'XXXXXX/' + ], + 'AssetTitle' => [ + 'xxxxxxx' + ], + 'AssetSource' => [ + 'XXXXXX' + ] + }, + { + 'AssetLink' => [ + 'XXXXXXx' + ], + 'AssetTitle' => [ + 'XXXXXX' + ], + 'AssetSource' => [ + 'XXXXXX' + ] + }, + { + 'AssetLink' => [ + 'XXXXXX' + ], + 'AssetTitle' => [ + 'XXXXXX' + ], + 'AssetSource' => [ + 'XXXXXX' + ] + } + ], + 'TabName' => [ + 'WHITEPAPERS' + ] + } + ] + } + ] } ], 'PromoModuleOne' => [ { 'LeftColoumn' + => [ + { + 'PromoLink' => [ + 'XXXXXX' + ], + 'HeadingImage' => [ + 'XXXXXX' + ], + 'PromoText' => [ + 'LEARN MORE 1' + ], + 'PromoImage' => [ + 'XXXXXX/XXXXXX.jpg' + ] + } + ], 'ModuleBackgr +oundImage' => [ + 'XXXXXX/section_bg.png' + ], 'ColorCode' = +> [ + 'MAROON' + ], 'RightColoumn +' => [ + { + 'Tabs' => [ + { + 'Links' => [ + { + 'AssetLink' => [ + 'XXXXXX' + ], + 'AssetTitle' => [ + 'XXXXXX' + ], + 'AssetSource' => [ + 'XXXXXX' + ] + }, + { + 'AssetLink' => [ + 'XXXXXX' + ], + 'AssetTitle' => [ + 'XXXXXX Ax' + ], + 'AssetSource' => [ + 'xxxxxx' + ] + }, + { + 'AssetLink' => [ + 'XXXXXX' + ], + 'AssetTitle' => [ + 'XXXXXX' + ], + 'AssetSource' => [ + 'XXXXXX' + ] + } + ], + 'TabName' => [ + 'NEWS' + ] + }, + { + 'Links' => [ + { + 'AssetLink' => [ + 'XXXXXX' + ], + 'AssetTitle' => [ + 'XXXXXX' + ], + 'AssetSource' => [ + 'NETWORK TES +T' + ] + }, + { + 'AssetLink' => [ + 'XXXXXX/' + ], + 'AssetTitle' => [ + 'XXXXXX' + ], + 'AssetSource' => [ + 'XXXXXX' + ] + }, + { + 'AssetLink' => [ + 'XXXXXX' + ], + 'AssetTitle' => [ + 'xxxxx' + ], + 'AssetSource' => [ + 'xxxxx' + ] + }, + { + 'AssetLink' => [ + 'XXXXXX' + ], + 'AssetTitle' => [ + 'XXXXXX' + ], + 'AssetSource' => [ + 'NETWORK TES +T' + ] + } + ], + 'TabName' => [ + 'WHITEPAPERS' + ] + } + ] + } + ] } ], 'modulemiddle' => [ { 'BackgroundImag +e' => [ + {} + ], 'Heading' => [ +'xxxxxxe?' ], 'SupplementalIm +age' => [ + 'XXXXXX' + ], 'ColorCode' => +[ + 'BLACK' +], 'LinkURL' => [ +'XXXXXX' ], 'RightColoumnIm +age' => [ + 'XXXXXX' + ], 'SubHeading' => + [ + 'xxxxxxx.' + ] } ], 'hero' => [ { 'videos' => [ { 'VideoI +mage' => [ + 'XXXXXX/hero_1_a1.jpg' + ], 'VideoU +RL' => [ + 'XXXXXX' + ], 'VideoT +itle' => [ + 'xxxxx.' + ] }, { 'VideoI +mage' => [ + 'XXXXXX/hero_1_a2.jpg' + ], 'VideoU +RL' => [ + 'XXXXXX' + ], 'VideoT +itle' => [ + 'xxxxx' + ] }, { 'VideoI +mage' => [ + 'XXXXXX/hero_1_a3.jpg' + ], 'VideoU +RL' => [ + 'XXXXXX' + ], 'VideoT +itle' => [ + 'xxxxx' + ] }, { 'VideoI +mage' => [ + 'XXXXXX/' + ], 'VideoU +RL' => [ + 'XXXXXX' + ], 'VideoT +itle' => [ + 'xxxxx' + ] } ], 'Heading' => [ 'xxxxx' ], 'SupplementalImage' => +[ + 'XXXXXX/icon_arrow_dark.png' +], 'SubHeading' => [ 'xxxx +xx' ], 'HeroImage' => [ 'XXXXX +X/hero_1.jpg' ] } ], 'meta' => [ { 'keywords' => [ {} ], 'summary' => [ 'XXXXXX' ], 'locale' => [ 'en_US' ], 'title' => [ 'XXXXXX' ], 'description' => [ {} ] } ] } ] };
Hi monks need to extract the values of tab name and the values of the elements in between the link nodes for promomdoule1 and promomodule2.I tried a couple of ways but doesn't seem to work please help

In reply to extact nested values by rajivreddy

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.