use YAPE::HTML;
$plain_text = YAPE::HTML->new($HTML)->display(0);