awk -F"^" 'BEGIN { 
T["00"]="ID"
T["01"]="NOMBRE"
T["02"]="APELLIDOS"
T["03"]="FECHA NACIMIENTO"
T["04"]="EDAD"
T["05"]="SEXO"
T["06"]="DIRECCION"
T["07"]="CIUDAD"
T["08"]="ESTADO"
T["09"]="CODIGO POSTAL"
T["10"]="TELEFONO CASA"
T["11"]="TELEFONO MOVIL"
T["12"]="E-MAIL"
T["13"]="CONTACTO EMERGENCIA"
T["14"]="RELACION"
T["15"]="TELEFONO EMERGENCIA"
T["16"]="SERVIDOR"
T["17"]="GRUPO GAL"
T["18"]="NOMBRE DEL LIDER"
T["19"]="RED SOCIAL"
T["20"]="PAIS DE NACIMIENTO"
T["21"]="PADRES"
T["22"]="EST. CIVIL"
T["23"]="CONYUGE"
T["24"]="DOB CONYUGE"
T["25"]="EDAD"
T["26"]="ANIVERSARIO"
T["27"]="CANTIDAD DE HIJOS"
T["28"]="CONYUGE EN PROCESO?"
T["29"]="EDP CONYUGE"
T["30"]="CONSEJERIA?"
T["31"]="MOTIVO"
T["32"]="ORACION?"
T["33"]="MOTIVO"
T["34"]="FOTOGRAFIA"
T["35"]="NOMBRE DE LOS HIJOS"
T["36"]="NOTAS"
T["37"]="INVITADO POR"
T["38"]="FECHA"
T["39"]="CONSOLIDADOR"
T["40"]="CARTA?"
T["41"]="ASISTE A UN GAL?"
T["42"]="GAL"
T["43"]="LIDERES GAL"
T["44"]="NIVEL GAL"
T["45"]="ETAPA DEL PROCESO"
T["46"]="FECHA REFERENCIA"
T["47"]="NUEVO STATUS"
T["48"]="PROCESO"
T["49"]="NOTAS AL PROCESO"
T["50"]="FECHA"
T["51"]="REVISOR"
T["52"]="STATUS"
}
{ for (i =1;i<NF;i++)
        {
                x=substr($i,2)
                printf "%s^",T[x]
        }
}
END {
	print ""
} ' -
