Shell Programming and Scripting

<Response>
<status>success</status>
<answer>AAA::AAA</answer>
<answer>BBB::BBB</answer>
</Response>

my @output = ();
foreach my $parts (@all)    ##@all = above XML result
{
  chomp($parts);

  if ($parts =~ /\<answer\>(.*)\<\/answer\>/)
  {
     push @output, $1;
  }
}

<Response>
<status>success</status>
<item key=1>
<answer>AAA::AAA</answer>
<answer>BBB::BBB</answer>
</item>
<item key=2>
<answer>CCC::CCC</answer>
<answer>DDD::DDD</answer>
</item>
</Response>

$
$
$ cat f67.xml
<Response>
<status>success</status>
<item key=1>
<answer>AAA::AAA</answer>
<answer>BBB::BBB</answer>
</item>
<item key=2>
<answer>CCC::CCC</answer>
<answer>DDD::DDD</answer>
</item>
</Response>
$
$
$ perl -lne 'if (/\<item key=(.*?)\>/) { $key = $1 }
             elsif (/\<answer\>(.*?)\<\/answer\>/) { push @{$x{$key}}, $1 }
             END {
               while ( ($k, $v) = each %x) {
                 print "Key = $k";
                 foreach $i (@$v) { print "\tAnswer = $i" }
               }
             }
            ' f67.xml
Key = 1
        Answer = AAA::AAA
        Answer = BBB::BBB
Key = 2
        Answer = CCC::CCC
        Answer = DDD::DDD
$
$
$