@dateparts[0,1] = @dateparts[1,0] if $dateparts[1] =~ /^[A-Z]/;