The program rests on the assumption that an equation when iterated against
a given parameter (a scalar value) in which the sequence of numbers produced
is "chaotic", can produce any number you want if given enough time.

The equation (a + 1.0/x)^(x/a) has chaotic properties for a number of given
parameter ranges between .5 and .1 , approximately.

The values for $a and $x were chosen more or less arbitrarily , except that I knew
the value I chose for $a would produce chaotic behavior.

Then I needed to pick significant figures.  The values of the iterates will vary slightly
from machine to machine, but with values with 8 significant digits after the decimal
place this problem is fixed.

I then iterated the equation 20000 times, always cutting the floating point value
to 8 significant figures after the decimal point before feeding it back into the equation.
I then searched this list of numbers for the first consecutive series of numbers whose
first two or three digits after the decimal place were the numerical ascii form of the
letters in the phrase "The Perl Journal".

The array @q is the set of unique iteration counts where these numbers arise consecutively.

The rest of this file is a step by step break down of the code.

@q=(41,4213,4622,5537,5620,6298,6499,7373,7646,10155,10794,11292,12336,13056,13182,15461);

The iteration counts where the floating point numbers produced by the iterative process
have their first two or three digits after the decimal place being equal to the numerical
ascii equivalent of the letters in the phrase "The Perl Journal"

$x=.2321;
$a=.360789;

Arbitrarily assigned values for the parameter a and the initial seed value for x.
I knew that this equation produced chaotic orbits of numbers for a between .3408 and .38
approximately. It produces chaotic orbits in other ranges as well, but this was the 
value for a I picked off the top of my head.

for(0..15461){
$y=($a+1./$x)**($x/$a);
$y=~s/\d\.\d{8}/$r[$i]=$&/e;
$x=$r[$i];
$i++;
}

15461 is the last iteration where the numerical ascii form of the letter 'l' is produced.
So I iterate the equation from 0 to 15461, truncate it to d.dddddddd , store the value into
the array @r, then feed this truncated value back into the equation as x.

for(0..$#q){
$r[$q[$z]]=~s/\d{3}/$a=$&;if($a!~\/^1\/){chop($a);}$l[$z]=pack("c",$a)/e;
$z++;
}
$f=join'',@l;
print "$f\n";

I call each particular value in the array @r that I'm interested in by calling its index
which is going to be one of the numbers in the array @q. I do a substitution of this
value that looks for the first instance of three consecutive digits, then checks to see
if this string begins with a '1', if it dosen't it chops it down a character, and then
uses pack to get the letter of the numerical ascii equivalent, storing this value into the
array @l. It then joins this array into the scalar value $f to make it look normal.
