Email Obfuscation and Shielding Script

Here's a perl script that takes email addresses as arguments, and returns javascript code that hides your email address from web spiders. The email address is also linked so it's clickable.

#! /usr/bin/perl

foreach my $email (@ARGV) {

        $email =~ s/@/ @ /;
        $email =~ s/\./ . /;

        @parts = split( ' ', $email );

        print "\n";
        print "document.write('');";
        foreach my $word (@parts) {
                print "document.write('".$word."');\n";
        }
        print "document.write('');\n";
        print "\n\n";
}