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