I usually use XML::XSH2 to deal with XML (to get us back on the Perl track). I created an input file like this: 
<r>
  <ch>
    <PortDetails>
      <PortType>A</PortType>
      <PortCode>USBAL</PortCode>
      <CutOffDate>2016-09-28</CutOffDate>
      <CutOffTime>12:00</CutOffTime>
    </PortDetails>
  </ch>
  <ch>
    <PortDetails>
      <PortType>L</PortType>
      <PortCode>USMIA</PortCode>
      <ETD>2016-10-13</ETD>
    </PortDetails>
  </ch>
</r>

[download]

and used the following xsh script to create a new file: 

my $in  := open { $ARGV[0] } ;
my $out := create RoutingDetails ;
my $rd  =  $out/RoutingDetails ;

my $pda = $in//PortDetails[PortType='A'] ;
if $pda {
    set $rd/StageQualifier 1 ;
    set $rd/TransportMode  1 ;
    set $rd/TransportName  'NV PRECARRIAGE' ;

    insert element Origin into $rd ;
    cp  $pda/PortCode/text() into $rd/Origin ;

    insert element ETD into $rd ;
    cp $pda/CutOffDate/text() into $rd/ETD ;
}

my $pdl = $in//PortDetails[PortType='L'] ;
if $pdl {
    insert element Destination into $rd ;
    cp  $pdl/PortCode/text() into $rd/Destination ;

    insert element ETA into $rd ;
    cp $pdl/ETD/text() into $rd/ETA ;
}

save :f 'output.xml' $out ;

[download]

The output was different to what you stated, because it correctly used the values present in the input. 

<?xml version="1.0" encoding="utf-8"?>
<RoutingDetails>
  <StageQualifier>1</StageQualifier>
  <TransportMode>1</TransportMode>
  <TransportName>NV PRECARRIAGE</TransportName>
  <Origin>USBAL</Origin>
  <ETD>2016-09-28</ETD>
  <Destination>USMIA</Destination>
  <ETA>2016-10-13</ETA>
</RoutingDetails>

[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]

In reply to Re: Conversion of Files Using XSLT by choroba
in thread Conversion of Files Using XSLT by Chris Daniel

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.