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