Grep in parts of an XML

[Mark]

Hi,

I want to search for a string in few parts of my XML file. Does anybody
know how can I make a grep for string 'AAA' in the blocks defined as
follows ?

for example:

<function name="f1">
<block><![CDATA[
begin
// printf( AAA + 1);
//junk gavgdwvckgcvkwvckjwfckwfvcsv
printf(AAA);
end;
]]></block>
</function>

Actually, i want to store all the lines between <block></block> tags of
all my functions (in my XML) into a @f_lines list and then 'grep it'
for string AAA. But I have no idea how to get the lines of my functions
into my list.

I didn't yet decide which module to use between XML::LibXML and
XML::Twig. But XML::LibXML seems faster and i think i'll go on it.

TIA for any help.

MA