use strict;
use warnings;
use HTML::Entities ();
my $mailaddress = "micky.miller\@foo.bar";

# Encoding
HTML::Entities::encode($mailaddress);

# Decoding
HTML::Entities::decode($mailaddress);