my (@array) = $text=~m/( \{\{ (?: [^\{\}]* | (?1) )* \}\} )/xg;
$text=~s/\Q$_\E/ / foreach @array;