my ($yr,$mth,$day,$hr,$min,$sec,$sgn,$hr2,$min2)
  = /^(\d+)\-(\d+)\-(\d+)T(\d+)\:(\d+)\:(\d+)(.)(\d+)\:(\d+)$/;