awk -F"^"  ' BEGIN { mess="enero^febrero^marzo^abril^mayo^junio^julio^agosto^septiembre"
imess="Jan^Feb^Mar^Apr^May^Jun^Jul^Aug^Sep"
split(mess,mes)
split(imess,imes)
for(i=1;i<10;i++) me[mes[i]]=i
for(i=1;i<10;i++) ime[imes[i]]=i
}
{
split($6,a," ")
fee=sprintf("%.4d-%.2d-%.2d",a[5],ime[a[4]],a[3])
}

$5+0 >12 {
split($5,a,"/")
if (a[1]+0 && a[2]+0 && a[3]+0)
{
printf "%s",$1"^"$2"^"$3"^"$4"^"
printf "%.4d-%.2d-%.2d^%s\n",a[3],a[2],a[1],fee
  next
}
}
index($5,2019) { 
	split($5,a,"/")
	if (a[2]+0 >12 ) {
printf "%s",$1"^"$2"^"$3"^"$4"^"
printf "%.4d-%.2d-%.2d^%s\n",a[3],a[1],a[2],fee
next
}
if (me[a[1]]) {
printf "%s",$1"^"$2"^"$3"^"$4"^"
printf "%.4d-%.2d-%.2d^%s\n",a[3],me[a[1]],a[2],fee
next
}
if (me[a[2]]) {
printf "%s",$1"^"$2"^"$3"^"$4"^"
printf "%.4d-%.2d-%.2d^%s\n",a[3],me[a[2]],a[1],fee
next
}
if (a[1]==a[2]) {
printf "%s",$1"^"$2"^"$3"^"$4"^"
printf "%.4d-%.2d-%.2d^%s\n",a[3],a[2],a[1],fee
next
}
split($6,im," ")
if (a[1]==ime[im[4]]) {
printf "%s",$1"^"$2"^"$3"^"$4"^"
printf "%.4d-%.2d-%.2d^%s\n",a[3],a[1],a[2],fee
next
}
if (a[2]==ime[im[4]]) {
printf "%s",$1"^"$2"^"$3"^"$4"^"
printf "%.4d-%.2d-%.2d^%s\n",a[3],a[2],a[1],fee
next
}
}
!index($7,"UTF") && /Subject/ && !/Subject:$/ {
	r=split($7,a," ")
printf "%s",$1"^"$2"^"$3"^"$4"^"
printf "%s^%s\n",a[r],fee
next
}
{ 
#print
  } 


' INFGES/.INFGES
