Hey, that's a nice trick and I like it. Just one thing I'm wondering about: your &unpackEmail sub does HTML encoding of the characters. Why not have the line

    my @codes = unpackEmail( $input );
[download]

Changed to:

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

If I understood your code correctly, you could then drop your unpackEmail sub.

Cheers,
Ovid

Update: I forgot to mention, if you want to get rid of all HTML, you can change this:

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

# to this:

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

I can't wait to email the link to your code to a bunch of my friends (yes, even Ovid has friends). It's a really, really nice trick.

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.