my $data = "00:01:00Something here bla bla blaTYPE00:02:00".
           "Something here bla bla blaANOTHERTYPE00:03:00S".
           "omething here bla bla blaEVENMORETYPES";

my $moredata = "00:01:00Something here bla bla blaType00:0".
               "2:00Something here bla bla blaTypetoooo00:".
               "03:00Something here bla bla blaTYPETHREE";

my @lines = $data =~ /(\d{2}:\d{2}:\d{2}[^\d]*)/g;

my @morelines = $moredata =~ /(\d{2}:\d{2}:\d{2}[^\d]*)/g;

print "$_\n" for @lines;
print "\n";
print "$_\n" for @morelines;