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

##</code><code>##

00:01:00Something here bla bla blaType00:02:00Something here bla bla blaTypetoooo00:03:00Something here bla bla blaTYPETHREE

##</code><code>##

0 => 00:01:00Something here bla bla blaType
1 => 00:02:00Something here bla blablaTypetoooo
2 => 00:03:00Something here bla bla blaTYPETHREE