@:1107459172::1
MORe TEXT
<br>okokoko
<br>TEXT
MORE TITLE
twisted.gif
Thu Feb  3 14:32:52 2005

##</code><code>##

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

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