$a="tye";
$a++ for 1..165444;
print $a;

[download]

Replies are listed 'Best First'.
Re: Discover inner truths with PERL
by Anonymous Monk on Feb 28, 2008 at 16:59 UTC 
    $x= 'jeffa';
$y= 'a'; $x++,$y++ while $y ne 'jeffa';
$y= 'a'; $x++,$y++ while $y ne 'blah';
$y= 'a'; $x++,$y++ while $y ne 'blah';
$y= 'a'; $x++,$y++ while $y ne 'bore';
$y= 'a'; $x++,$y++ while $y ne 'ing';
$y= 'a'; $x++,$y++ while $y ne 'eqn';
print $x;

    [download]
[reply]
[d/l]
      Try again! :D
[reply]

Back to Obfuscated Code