#!/usr/bin/perl -p
# A simple script to encode email addresses for safe use on the web.
# usage: echo pgrayson@ks.uiuc.edu | hideemail.pl

sub hide {
    my @chars = split //, $_[0];
    foreach $char (@chars) {
	if($char eq "@" || int(rand(2))) {
	    $char = "&#".unpack("c",$char).";";
	}
    }
    return join("",@chars);
}

$address = &hide($_);
$mailto = &hide("mailto");
$_ = qq{<a href="$mailto:$address">$address</a>}."\n";