2010-03-18T09:20:05.793-03:00 2010-03-18T09:19:56.997-03:00 2010-03-18T11:12:00.147-03:00 2010-03-18T11:15:16.597-03:00 ##

##

#! /bin/env perl
use warnings;

if (! open R21WORKINGCONFIG, "<", "Input.xml") {
    die "Cant open Input.xml for input";
}
@workingConfig = ;
chomp @workingConfig;
$domainProperty = "Reasons";
$scalarWorkingConfig = join "XXXXX", @workingConfig;
$scalarWorkingConfig =~ s/.*(XXXXX[ |   ]*<$domainProperty .*$domainProperty>).*/$1/g;
print join ("\n", split (/XXXXX/, $scalarWorkingConfig))."\n";
close R21WORKINGCONFIG;

##

##

    
      2010-03-18T11:15:16.597-03:00