Posted by Gremlin [12.211.200.127 - 12-211-200-127.client.attbi.com] on 01 August 2003 at 04.40.32 ZuluTime:

In Reply to: I'VE FOUND GOD!!! and just as i suspected, hes fucking nuts... posted by Crane on 31 July 2003 at 07.42.59 ZuluTime:

This is funny, if you happen to speak Perl....

#!/usr/sbin/perl
# Sourcecode for gotohell.pl
eval 'exec perl -S $0 ${1+"$@"}'

if $not_running_under_some_shell; {
     $whatever = 'print';
     $while = 1;
};

$_ = $0;
s!^(\w*)\.pl!$1!go;
@offset = split(/ */);
$_ = join('@', @offset);
y/gth/GTH/; /@T@o@/;
$_ = "$whatever \"$` $& $'!\n\"" . ';';
s@\@@@go;

for ($never=0; $while; $waste_cpu_time++) {
     next unless !$alreadydone;
     $remainder = "" . eval $_;
     &dontknowwhy($remainder) unless $no_terminal_connected;
     last if $nomoretosay;
}
exit 0;

# This subroutine does the real work, but never on Sunday.
sub dontknowwhy {
     local($replacement) = @_;
     local($*) = 1;
     $replacement =~ s/\t{0,10}[0-9]+\t?X*/\n/g;
     $replacement;
     $nomoretosay = $*;
}

--Gremlin