use XML::Simple;
use Data::Dumper;
$xs = new XML::Simple;
my $ref = $xs->XMLin("data.xml");
my $xml = $xs->XMLout($ref);

##</code><code>##

<?xml version='1.0' encoding='UTF-8'?>
<result> 
  <suites>
    <suite>
      <name>(Multiple_Sub_disp.xml)</name>
      <duration>2.0</duration>
      <cases>
        <case>
          <duration>2.0</duration>
          <className>Regression.CR0097956</className>
          <testName>CR0097956_Multiple_Sub_disp</testName>
          <skipped>false</skipped>
          <failedSince>10</failedSince>
        </case>
      </cases>
    </suite>
    <suite>
      <name>(Multiple_Sub_mod.xml)</name>
      <duration>12.0</duration>
      <cases>
        <case>
          <duration>12.0</duration>
          <className>Regression.CR001000</className>
          <testName>CR0097956_Multiple_Sub_mod</testName>
          <skipped>false</skipped>
          <failedSince>20</failedSince>
        </case>
      </cases>
    </suite>
    <suite>
      <name>(Single_Sub_create.xml)</name>
      <duration>12.0</duration>
      <cases>
        <case>
          <duration>12.0</duration>
          <className>Regression.CR002000</className>
          <testName>CR0097956_Single_Sub_create</testName>
          <skipped>false</skipped>
          <failedSince>10</failedSince>
        </case>
      </cases>
    </suite>
    </suites>
    <duration>34082.0</duration>
</result>

##</code><code>##

Regression.CR0097956 , 
Regression.CR001000 , 
Regression.CR002000