in reply to Backtracking for substitutions

In two steps:
s|^(.*?)\s(\w+)\s(0000\d+)\s(\d+/\d+/\d+\s\d+:\d+:\d+)|$1,$2,$3,$4|; s|\s(0000\d+)\s(\d+/\d+/\d+\s\d+:\d+:\d+)|,$1,$2|g;