So I'm trying to add spoiler support in Wakaba, and I'm having a lot of trouble that I think is stemming from regex. I'm new to perl, so this is a bit hard for me. I'm adding the following to sub do_wakabamark($;$$) to accomplish this:

elsif(/^\[spoiler\]/) # spoilers{
    if ($lines[0]=~/^\[spoiler\](.*)/){
        while !($lines[0]=~/\[\/spoiler\]$/){
            push @spoiler,$1; shift @lines;
        }
    }
    $res.="<span class='spoiler'>".(join "<br />",@spoiler)."</span>";
}

Thanks in advance!!

Now you have two problems.