use HTML::FromText; my $str = < 1);