if ($ar_entry_chunks[$i] =~ /(.+?)\<\/B\>\<\/center\>/g) {
  print $1;
}