Select Code to Download

Select or download this

my $elementHash = { MSGTEXT1 => 'CDATA[Starting SITUATION1 <311446961,
+2559575967> for K01.K01CSYSTE5',
                    MSGTEXT2 => 'CDATA[Starting Enterprise situation S
+ITUATION1 <311439572,1066403668> for K01.K01CSYSTE5.',
...
    my $param2 = ( $size > 4 ) ? $items[3] : $items[1];
    ( $tmp[1], $param2, $items[ $size ] );
}

Select or download this

$VAR1 = [
          'Starting',
...
          'SITUATION1',
          'K01.K01CSYSTE5.'
        ];