#!/usr/bin/perl -w

use strict;

while (<>) {
    my ($i, $s);
    chomp;
    for ($i = 0, $s = ""; $i < length($_); $i++) {
	$s .= sprintf("%%%02X", ord substr($_, $i, 1));
    }
    printf "<A href=\"mailto:%s\">E-Mail</A>\n", $s;
}
.