Как я могу заставить это перейти в новый каталог?

Есть несколько хороших регулярных выражений для замены HTML с помощью BBCode здесь . Обратите внимание на то, что он не пытается полностью разобрать HTML, просто для того, чтобы его дезинфицировать. Вероятно, он может убить теги, которые его простой «парсер» не может понять.

Например:

$store =~ s/http:/http:\/\//gi;
$store =~ s/https:/https:\/\//gi;
$baseurl = $store;

if (!$query->param("ascii")) {
    $html =~ s/\s\s+/\n/gi;
    $html =~ s/(.*?)<\/pre>/\[code]$2\[\/code]/sgmi;
}

$html =~ s/\n//gi;
$html =~ s/\r\r//gi;
$html =~ s/$baseurl//gi;
$html =~ s/(.*?)<\/h[1-7]>/\n\[b]$2\[\/b]\n/sgmi;
$html =~ s/
/\n\n/gi;
$html =~ s//\n/gi;
$html =~ s/(.*?)<\/textarea>/\[code]$2\[\/code]/sgmi;
$html =~ s/(.*?)<\/b>/\[b]$1\[\/b]/gi;
$html =~ s/(.*?)<\/i>/\[i]$1\[\/i]/gi;
$html =~ s/(.*?)<\/u>/\[u]$1\[\/u]/gi;
$html =~ s/(.*?)<\/em>/\[i]$1\[\/i]/gi;
$html =~ s/(.*?)<\/strong>/\[b]$1\[\/b]/gi;
$html =~ s/(.*?)<\/cite>/\[i]$1\[\/i]/gi;
$html =~ s/(.*?)<\/font>/\[color=$1]$2\[\/color]/sgmi;
$html =~ s/(.*?)<\/font>/\[color=$1]$2\[\/color]/sgmi;
$html =~ s///gi;
$html =~ s/(.*?)<\/li>/\[\*]$2/gi;
$html =~ s//\[list]/gi;
$html =~ s/<\/ul>/\[\/list]/gi;
$html =~ s/
/\n/gi;
$html =~ s/<\/div>/\n/gi;
$html =~ s// /gi;
$html =~ s//\n/gi;

$html =~ s//\[img]$baseurl\/$2\[\/img]/gi;
$html =~ s/(.*?)<\/a>/\[url=$baseurl\/$2]$4\[\/url]/gi;
$html =~ s/\[url=$baseurl\/http:\/\/(.*?)](.*?)\[\/url]/\[url=http:\/\/$1]$2\[\/url]/gi;
$html =~ s/\[img]$baseurl\/http:\/\/(.*?)\[\/img]/\[img]http:\/\/$1\[\/img]/gi;

$html =~ s/(.*?)<\/head>//sgmi;
$html =~ s/