use HTML::FromText;

my $html=text2html($text,urls=>1,email=>1);