I may do the later chapters as I find the time.
Copies of the original work can be found all over the web, here's one place to find it.
Enjoy!

(update) more:
The Tao of Programming, Chapter 2
The Tao of Programming, Chapter 9

# Based on "The Tao of Programming" as Translated By Geoffrey James

package Tao::Book::1;

# The silent void

$master_programmer = bless \$programmer, 'Tao';

$master_programmer->spake(qq{ When you have learned to snatch the erro
+r code from the trap frame, it will be time for you to leave. });

# 1.1
() = do {
       open STDOUT, ">/dev/null";
       1 while $mystery;
       $mystery =~ /(\001|\000)+/;
       $_ = $mystery;        *{'Tao of Programming'} = *_;
       if ($tao = 'great') {
               $^O = 'great';
       }
       if ($^O eq 'great') {
               $^X = 'great';
       }
       if ($^X eq 'great') {
               $0 = 'great';
       }
       for $user (@world) {
               $user->{':)'}++
       }
       (sub { $morning->{wind} = @_; return $morning })->(${'Tao of Pr
+ogramming'});
};


# 1.2
{
    $machine_language = $tao->();
    $assembler = $machine_language->();
    $compiler = $assembler->();
    $#languages = 9999;
    @tao = grep //, @languages;
    foreach (@languages) {
        $_ = { 
            purpose => 1,
            yin => 'software',
            yang => 'software',
        };
        $tao->{$_}++;
    }
    @use = grep $_ !~ /^COBOL$/, @languages unless $nochoice;
}

# 1.3
{
    BEGIN {
        $tao++;
    }
    ($space, $time) = $tao->();
    @programming{ qw( yin yang ) } = ($space, $time);
    unless (study $tao) {
        ($space /= 2, $time /= 2) while 1;  
    }
    if (study $tao) {
        ($space, $time) = @goal{ qw( space time ) }
    }
}

# 1.4
{
    $wise_programmer->($tao) && ($tao, $wise_programmer);
    $average_programmer->($tao) && grep /$tao/, @_;
    $foolish_programmer->($tao) && do {
        $laughter = $foolish_programmer->laugh($tao)
    };
    $tao = undef unless $laughter;
    open SOUND, '> /dev/audio';
    print SOUND 0xFF;
    goto Forward;
    Retreat: goto Last;
    Forward: goto Retreat;
    Last: {
        $life->{age} >= $late && print "great talent";
    }
    print("perfect program");
}
[download]

[TINPC@perlcabal.com shh]$ su real

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

Outside of code tags, you may need to use entities for some characters:

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.