use HTML::Entities;

my $ascii = <<'ASCII';
The quick brown fox
jumps over the lazy god.
ASCII;

my $html = encode_entities($ascii);
$html =~ s/\r?\n/<br>/g;

print "<pre>$html</pre>";