my @codes = unpackEmail( $input );

##</code><code>##

    use HTML::Entities;
    my @codes = map{ encode_entities( $_, '\x00-\xff' ) } split//, $input;

##</code><code>##

my $link = '<a href="mailto:' . "$mailto" . 
                 '">' . "$mailto</a>";

# to this:

my $link = a( { -href => $mailto }, $mailto );