Select Code to Download

    my @codes = unpackEmail( $input );

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

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

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