Select Code to Download

    <Reasons id="ABC" name="PJ1:PJ">
      <modDate>2010-03-18T09:20:05.793-03:00</modDate>
...
    <Reasons id="JKL" name="ADD">
      <modDate>2010-03-18T11:15:16.597-03:00</modDate>
    </Reasons>

#! /bin/env perl
use warnings;
...
$scalarWorkingConfig =~ s/.*(XXXXX[ |   ]*<$domainProperty .*$domainPr
+operty>).*/$1/g;
print join ("\n", split (/XXXXX/, $scalarWorkingConfig))."\n";
close R21WORKINGCONFIG;

    <Reasons id="JKL" name="ADD">
      <modDate>2010-03-18T11:15:16.597-03:00</modDate>
    </Reasons>