' if !$maxlength;
$rmnewline = 1;
next
} elsif (lc$_ eq '[code]') {
push @open, 'code';
$result .= '
' if !$maxlength;
$rmnewline = 1;
next
} elsif (lc$_ eq '[/spoiler]') {
if($open[$#open] eq 'spoiler') {
$result .= '';
pop @open;
}
next;
} elsif (lc$_ eq '[/quote]') {
if($open[$#open] eq 'quote') {
$result .= '
' if !$maxlength;
$rmnewline = 1;
pop @open;
}
next;
} elsif(lc$_ eq '[/url]') {
if($open[$#open] eq 'url') {
$result .= '';
pop @open;
}
next;
} elsif(s{\[url=((https?://|/)[^\]>]+)\]}{