while ( <> ) {
     s/^((\w+) (\w) (\w+)) (\w+) ((\d){11}) (\d/\d/\d (\d){2}:(\d){2}:(\d){2})$/$1,$5,$6,$8/
}