>perl -E "my %h = map {split ':',$_} split /\s+/, $ARGV[0]; 
   say qq|$_\t$h{$_}\n|  for sort keys %h"
 "THREAD_ID:1bf1d698 CDR_TY
40815144127   DEL_TIME:240815144127   OA_ADDR:5.0.OTSDC   PRE_TRANS_OA:5.0.OTSDC  DA_ADDR:1.1.966555696176   PRE_TRANS_DA:1.1.966555696176 "