call perl -i.bak -ne "my $bs=chr(92); s/berrybrew(?!\\+test)/berrybrew${bs}${bs}test/; print" test/data/config.json