$ errpt |perl -lape '@_=$F[1]=~/(..)/g; substr $_,11,11,""; $_ = ($.==1? "TIMEDATE".(" "x8) : "20".join("-",@_[4,0,1])." ".join(":",@_[2,3]))." ".$_'
TIMEDATE IDENTIFIER T C RESOURCE_NAME DESCRIPTION
TIMEDATE         IDENTIFIER T C RESOURCE_NAME DESCRIPTION
2013-09-30 15:27 982C78BF   T S mir0          DISPLAY ADAPTER CONFIGURATION ERROR
2013-09-25 16:27 BA431EB7   P S SRC           SOFTWARE PROGRAM ERROR