$ ./link_obfu foo@bar.invalid
<a href="&#109;&#97;&#105;&#108;&#116;&#111;&#58;&#102;&#111;&#111;&#64;&#98;&#97;&#114;&#46;&#105;&#110;&#118;&#97;&#108;&#105;&#100;"> </a> 

##</code><code>##

#!/usr/bin/perl -w

use strict;

print "<a href=\"&#109;&#97;&#105;&#108;&#116;&#111;&#58;";
foreach (split("",$ARGV[0])) {
  print "&#".ord($_).";";
}
print "\"> </a>\n";