s{\[\[(.*?)\]\]}{$1 =~ s/ /_/gr}e