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

sub process_match {
   my $tmp = shift;
   if ($DB->table('Articles')->count( { article_title => $tmp } ) > 0) {
      # return modified text here
   } else {
      return $tmp;  # unmodified text
   }
}