Select Code to Download

#!/usr/bin/perl -w

# use strict;
...
    my $comment = $comments->first_child( 'Comments');
    push @comments, $comment;
}

<Questions>
               <Comments number="12"><Prompt><![CDATA[Question placeho
+lder for missing question in RC]]></Promp
t><Response score="1.0"><![CDATA[No answer available]]></Response></Co
+mments>
...
               <Comments number="14"><Prompt><![CDATA[Question placeho
+lder for missing question in RC]]></Promp
t><Response score="1.0"><![CDATA[No answer available]]></Response></Co
+mments>
</Questions>

.....   
<QQ_Manifest>
          <Applicant id="applicant1" person_id="50-8082308" email="jac
+k_black@aolsuxor.com"/>
...
          <Questions includes_responses="yes">
               <No number="10">
....