Select Code to Download

use HTML::Entities;
use HTML::Entities qw( %char2entity %entity2char ); #thanks ikegami
...
$string = "this is an @ AT";
$string_2 = "é â ä à å ç ê ë è ï î ì Ä å É æ Æ ô ö ò û ù ÿ Ö Ü £ ¥ P ƒ
+ á í ó ú ñ Ñ ª º ¿ ¬ ¬ ½ ¼ ¡ @ . , < > [ ] { } - _ ; :";
print "<p>encoded @ => ".encode_entities('@').", <br>and the string ha
+s become => ".encode_entities($string)." <br>and the string_2 has bec
+ome => ".encode_entities($string_2)."\n";

...
<br>@ => &#64;
...
encoded @ => @, 
<br>and the string has become => this is an @ AT 
<br>and the string_2 has become => &eacute; &acirc; &auml; &agrave; &a
+ring; &ccedil; &ecirc; &euml; &egrave; &iuml; &icirc; &igrave; &Auml;
+ &aring; &Eacute; &aelig; &AElig; &ocirc; &ouml; &ograve; &ucirc; &ug
+rave; &yuml; &Ouml; &Uuml; &pound; &yen; P &#131; &aacute; &iacute; &
+oacute; &uacute; &ntilde; &Ntilde; &ordf; &ordm; &iquest; &not; &not;
+ &frac12; &frac14; &iexcl; @ . , &lt; &gt; [ ] { } - _ ; :