@lines = split(/(\d\d:\d\d:\d\d[a-zA-Z].*?[A-Z][A-Z][A-Z][A-Z]+)/,$data); #### 00:01:00Something here bla bla blaType00:02:00Something here bla bla blaTypetoooo00:03:00Something here bla bla blaTYPETHREE #### 0 => 00:01:00Something here bla bla blaType 1 => 00:02:00Something here bla blablaTypetoooo 2 => 00:03:00Something here bla bla blaTYPETHREE