RE: Re(3): My obfuscation debut (part II ;)

[Maqs]

Hm. the question is why the results differ? Strange, but i have the proper result on my machine and afaik some other people too.
/Maqs.

[jjhorner]

Here is what I got when I ran this:

[09:05:55 jhorner@gateway scripts]$ more 20000601-1.pl 
#!/usr/bin/perl
$_="0123456789";$_=$^X.' '.lc((split/\s/,(scalar
(localtime(substr$_,3,6))))[0]).pack("C*",(eval(
length$_).substr($_,7,1)),(join'',(split"",$_)[1
,1,5]));print"\u$_\n";
[09:06:05 jhorner@gateway scripts]$ ./20000601-1.pl 
Perl sunks

J. J. Horner
Linux, Perl, Apache, Stronghold, Unix
[e-mail] http://www.knoxlug.org/