nawk '
BEGIN {

}
/\//{
	date = substr($0, 33, 8)
	time = substr($0, 42, 5)

	if (split(date, da, "/") != 3) {
		print "skipping bogus record: " $0
		next
	}
	if (split(time, ti, ":") != 2) {
		print "skipping bogus record: " $0
		next
	}
	cmd = sprintf("TZ=EST chtime -v %02.2d%02.2d%02.2d%02.2d%02.2d\t%s\n", \
		da[1], da[2], da[3], ti[1], ti[2], $NF )
	printf cmd
	system(cmd);
}' list
