PHP preg_replace: Нечувствительность к регистру с чувствительностью к регистру

Я использую preg_replace в PHP для поиска и замены определенных слов в строке, например:

$subject = "Apple apple";
print preg_replace('/\bapple\b/i', 'pear', $subject);

Что дает результат "грушевая груша".

То, что я хотел бы сделать, - это совместить слово нечувствительным к регистру, но уважать его, когда оно заменяется, - давая результат "Грушевая груша".

Следующие работы, но, кажется, немного долго на меня наводнили:

$pattern = array('/Apple\b/', '/apple\b/');
$replacement = array('Pear', 'pear');
$subject = "Apple apple";
print preg_replace($pattern, $replacement, $subject);

Есть ли лучший способ сделать это?

Обновление. В дополнение к отличному запросу, поднятому ниже, для целей этой задачи я хочу только уважать "заголовок" - так ли первая буква слова является капиталом.

Ответы

$data    = 'this is appLe and ApPle';
$search  = 'apple';
$replace = 'pear';

$data = preg_replace_callback('/\b'.$search.'\b/i', function($matches) use ($replace)
{
   $i=0;
   return join('', array_map(function($char) use ($matches, &$i)
   {
      return ctype_lower($matches[0][$i++])?strtolower($char):strtoupper($char);
   }, str_split($replace)));
}, $data);

//var_dump($data); //"this is peaR and PeAr"

$replacer = function($matches) {
    return ctype_lower($matches[0][0]) ? 'pear' : 'Pear';
};

print preg_replace_callback('/\bapple\b/i', $replacer, $subject);

$result = preg_replace("/\b(foo)\b/i", "<strong>$1</strong>", $original);