$text =$data{"Text"}; #Name of Textbox in form
$text =~ s/</&lt;/g;
$text =~ s/>/&gt;/g;