Its a huge XML file of nearly 30MB with 400000 lines ...

@workingConfig = <R21WORKINGCONFIG>;
$scalarWorkingConfig = join "XXXXX", @workingConfig;
$scalarWorkingConfig =~ s/.*(XXXXX[ |   ]*<$domainProperty .*$domainPr
+operty>).*/$1/g;
[download]

...

I wonder whether Larry could ever had guessed all these things people will do with his Perl....