open(DATA,"db.txt") or die $!;
   while(<DATA>){
	  chomp;
	  my @array=$_;

  if(@array=~/(.*)(\d+:\d+:\d+)(.*?)/g)
  do code...
  }