If you havn't figred it out yet.. here's how it works:

$#=${$[|$|}; 

This line grabs the name of the file (The_Journal.pl) and stores it in $#

($_,$y)=split(/\./,$#);

Then we split the file name, basically to get rid of the .pl. Now The_Journal
is easily manipulated from $_

undef$y; 

This is to minimize the errors while using -w, since $y is only ,once.  But
this line really doesn't effect the output.

$^X=~s/^(.*)(\\|\/)//i;

Here we are looking for the path-to-perl on the box and subbing anything up to, and
including, the last / or \ (to account for it being run on UN*X or Win32), so the should
leave the value of $^X as either 'perl' or 'perl.exe'.

s/\_/\n\t$^X\n\t\t/;

We s// the _ in The_Journal (in $_) to be how we want $_ to output. So, this
line takes away our useless _ as well as does the output formatting.

print;

Prints it.

The
	perl
		Journal
