perl -le 'print map{printf"&#%03d;",ord}split//,$ARGV[0]' the@address.net

&#116;&#104;&#101;&#064;&#097;&#100;&#100;&#114;&#101;&#115;&#115;&#046;&#110;&#101;&#116;