[dan3k]

Я сделал так:
$print=текст поста
$print =~ s/\[b\](.*?)\[\/b\]/<b>$1<\/b>/isg;