$_       = 'foo bah bah bar';
$find    = 'bah';
$replace = '[\1]';

$idx = length($_);
while (($idx = rindex($_, $find, $idx-1)) >= 0) {
   substr($_, $idx, length($find), $replace);
}

$\ = "\n";
print;