$content =~ s/&/&/g;
$content =~ s/</&lt;/g;
$content =~ s/>/&gt;/g;  # optional.
print("<textarea>$content</textarea>");