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

$idx = index($_, $find);
substr($_, $idx, length($find), $replace) if $idx >= 0;

$\ = "\n";
print;