Select Code to Download

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

00:01:00Something here bla bla blaType00:02:00Something here bla bla b
+laTypetoooo00: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