After seeing the article in TPJ about encoding messages with spacing I
thought I would try my own version of it. The program 'reads' itself
by way of the $_ variable which contains a very long regular
expressions and the message "The Perl Journal". The message is encoded
in binary where 1 = space and 0 = tab. I only used 7 bits per
character because all of the binary codes are less than 128.

The regular expression finds each block of seven space characters
which are included within the regular expression itself. (I love the x
switch for substitution :) It then does all kinds of manipulation of
the $0 variable to get the various variable names $1, $2, ..., $7 and
then bit switch them <<6, <<5, ..., <<0. Because $0 starts out as a
string, when the first ++$0 occurs it gets evaluated to 0 and then
from then on it is a number. (If the program where renamed to
something like 234 and run it wouldn't have worked ...)

Once all of the bit shifting is done the final number is passed to
chr() which replaces everything that was matched with one of the
characters in the "The Perl Journal". By calling the code through eval
the fact that the print, part of the code that gets replaced, doesn't
matter because it will still execute.

After converting the message to spaces and tabs I made sure to format
into something pretty. If viewing in emacs be sure to set the window
to 81 characters wide.

By using white spaces and $0 I figured a good nickname for the program
would be "something from nothing".

I also couldn't resist to format the code into something nice to look
at considering how hairy the code looks.
