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