sub str2epoch3 {
    (((int((substr($_[0],12,4)-1970)*365.25-.5)+
	 MONTHS->{substr($_[0],8,3)}+substr($_[0],5,2))*24 +substr($_[0],17,2))*60 +
	 substr($_[0],20,2))*60 +substr($_[0],23,2);
}