Select Code to Download

$post_message =~ s{\[\[([^]]+)\]\]}{process_match($1)}ge;

...
      return $tmp;  # unmodified text
   }
}