$doc =~ s/\[\[//g;
$doc =~ s/\]\]//g;
$doc =~ s/\'//g;