tie $input, Tie::HTMLEncode;

  $input = "<script>alert(\"Boo!\")</script>";

  print $input; # outputs &lt;script&gt;alert("Boo!")&lt;/script&gt;