my $infocounter = 1;
 while($assdata =~/<td class="title">(.*?)<\/td>/g){
 
  [regex?!?]

  $infocounter++;
 }