This program works on bad code :) Very little of the program is "good"
code.

It starts off by reading itself, grabbing the string of text after @b,
reformatting it to remove all of the junk text, then printing it
out. This entire step would really not be needed, but I wanted to make
the code more "readable." After printing out the "story" the real work
begins.

During the above steps, the Perl Warning flag got turned on and
$SIG{__WARN__} was set to an anonymous subroutine. That's what the
line starting with the 2 packs accomplishes. The foreach then evals
each block of code in the @b array. If the piece of code generates a
warning, the appropriate character from the warning is parsed out and
printed. As an example the "$TPJ" line generate the warning:

Use of uninitialized value at TPJ.pl line 1.

At this point 13 is removed form the @a array, 12 characters are
skipped, and the 13th is printed, in this case the letter "t". The 0's
in @a skip over warnings that would have resulted if that string had
been evaled.

The warnings used are:

           111111111122222222223
  123456789012345678901234567890
t-Use of uninitialized value at warntpj2.pl line 3.
h-chmod: mode argument is missing initial 0 at (eval 1) line 1, at end of line
e-Filehandle main::print3 never opened at (eval 2) line 1.
 -Illegal octal digit ignored at (eval 3) line 1.
p-accept() on closed fd at (eval 4) line 1.
e-tell() on unopened file at (eval 5) line 1.
r-get{sock, peer}name() on closed fd at (eval 6) line 1.
l-listen() on closed fd at (eval 7) line 1.
 -Misplaced _ in number at (eval 8) line 1.
j-Unquoted string "j" may clash with future reserved word at (eval 9) line 1.
o-connect() on closed fd at (eval 10) line 1.
u-Found = in conditional, should be == at (eval 11) line 1.
r-Parens missing around "my" list at (eval 12) line 1.
n-seek() on unopened file at (eval 13) line 1.
a-Syswrite on closed filehandle at (eval 14) line 1.
l-Send on closed socket at (eval 15) line 1.
