my $spoiler_pat = $VARS->{spoiler_pat}||
      "<table><tr><td bgcolor='#000000'><font color='#000000'>".
      "%TEXT%".
      "</font></td></tr></table>";
   while ( $text =~ m{<spoiler>(.*?)</spoiler>} ) {
       (my $repl = $spoiler_pat) =~ s/%TEXT%/$1/;
       $text =~ s{<spoiler>(.*?)</spoiler>}{$repl};
   }