Цитата: Кажется, я ошибся... Дай текущий код этого места.
Код: sub ikoncode {
my $post = shift;
$post =~ s/\<p>/<br><br>/isg;
$post =~ s|\[\[|\{\{|g;
$post =~ s|\]\]|\}\}|g;
$post =~ s|\n\[|\[|g;
$post =~ s|\]\n|\]|g;
$post =~ s|<br>| <br>|g;
$post =~ s|\[hr\]\n|\<hr width=40\% align=left>|g;
$post =~ s|\[hr\]|\<hr width=40\% align=left>|g;
$post =~ s/\[q\]\s*(.*?)\s*\[\/q\]/<blockquote class=n2><span class=s>">Цитата":<\/span><hr noshade size=1>$1<hr noshade size=1><\/blockquote>/isg;
$post =~ s/\[quote\](.*)\[quote\](.*)\[\/quote](.*)\[\/quote\]/:<table cellpadding=\"3\" cellspacing=\"0\" bgcolor=\"#FFFFFF\" width=\"75%\" border=\"1\" bordercolor=\"#d0d0d0\"><tr><td><font size=\"1\" face=\"verdana, helvetica\">$1<\/font><blockquote><hr><font size=\"1\" face=\"verdana, helvetica\">$2<\/font><hr><\/blockquote><font size=\"1\" face=\"verdana, helvetica\">$3<\/font><\/td><\/tr><\/table>/isg;
$post =~ s/\[quote\]\s*(.*?)\s*\[\/quote\]/<br><b>Öèòàòà:<\/b><table cellpadding=\"3\" cellspacing=\"0\" bgcolor=\"#FFFFFF\" width=\"75%\" border=\"1\" bordercolor=\"#d0d0d0\"><tr><td><font size=\"1\" face=\"verdana, helvetica\">$1<\/font><\/td><\/tr><\/table>/isg;