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