Select Code to Download

<ObjectType>
   <AppObject>hello</AppObject>
...
   <valueTargetPair value="MALE" targetPo="Incoming 1" />
   <valueTargetPair value="FEMALE" targetPo="Incoming 2" />
</ObjectType>

}elsif ($_ =~ /<AppObjectField>(.*)<\/AppObjectField>/) {
   $self->{appObjFld} = $1;
}

if ($inline =~ /<valueTargetPair (.*)\/>/) {
   if ($inline =~ /value=\"(.*?)\" targetPo=\"(.*?)\"/) {
...
      push (@arry, \%theHash);
   }
}

   $self->{valuePair} = \@arry;