my($datetime, $data) = /^(\w+-\d+,[\d:.]+),(.*)/;