echo me@example.com |perl -MHTML::Entities -nle 'print "mailto:" . HTML::Entities::encode_numeric($_,"\0-\377")'