@lines = split(/(\d\d:\d\d:\d\d[a-zA-Z].*?[A-Z][A-Z][A-Z][A-Z]+)/,$data);