#!perl
use strict;
use warnings;

use XML::Twig;
my $t= XML::Twig->new(pretty_print => 'indented',
   twig_handlers=>{
                    'xdoc/MsgSigs/MsgSig'=>sub{
                     my $keytext = $_[1]->first_child('Key')->text;
                     my $descrtext = $_[1]->first_child('Description')->text;
                     $_[1]->first_child('Description')->set_text($descrtext." ($keytext)");
                     $_[0]->flush;
                   }
   }
);
$/='';
$t->parse(<DATA>);
__DATA__
<xdoc>
  <MsgSigs>
   <MsgSig>
     <Description>TSC1 - Torque/Speed Cntrl 1</Description>
     <Key>ln1</Key>
     <XtdFrame>True</XtdFrame>
     <NetworkKey>net0</NetworkKey>
     <MsgSignals>
     </MsgSignals>
   </MsgSig>
   <MsgSig>
     <Description>TSC1 - Torque/Speed Cntrl 1</Description>
     <Key>ln2</Key>
     <XtdFrame>True</XtdFrame>
     <NetworkKey>net0</NetworkKey>
     <MsgSignals>
        <Signal>
          <Description>0_SPN695 Eng. Override </Description>
          <Key>sig695</Key>
          <ValueType>1</ValueType>
        </Signal>
     </MsgSignals>
   </MsgSig>
  </MsgSigs>
</xdoc>


###OUTPUT
<xdoc>
  <MsgSigs>
    <MsgSig>
      <Description>TSC1 - Torque/Speed Cntrl 1 (ln1)</Description>
      <Key>ln1</Key>
      <XtdFrame>True</XtdFrame>
      <NetworkKey>net0</NetworkKey>
      <MsgSignals></MsgSignals>
    </MsgSig>
    <MsgSig>
      <Description>TSC1 - Torque/Speed Cntrl 1 (ln2)</Description>
      <Key>ln2</Key>
      <XtdFrame>True</XtdFrame>
      <NetworkKey>net0</NetworkKey>
      <MsgSignals>
        <Signal>
          <Description>0_SPN695 Eng. Override </Description>
          <Key>sig695</Key>
          <ValueType>1</ValueType>
        </Signal>
      </MsgSignals>
    </MsgSig>
  </MsgSigs>
</xdoc>