The following is the current errata list for the first edition
of Teach Yourself Perl in 21 Days, as of Jan 24, 1995.
The serious errors are flagged with asterisks.

*** page 6:  change "get" to "get perl-4.036.tar.gz".

page 125:  delete the "C1" in front of "$potato[0]".

page 142:  The line

	The first element of subarray is 2

should be added as the first line of output produced.

*** page 151:  there should be no space between @ and array in "@array"
(2 occurrences).

page 196:  add "file1 file2" after "program6_12".

page 200:  add "single file1 file2" after "program6_13".

page 202:  add "single file1 file2" after "program6_14".

page 220:  delete the zero in "/^def$/0".

page 222:  add "^D" after the line "of the party" in the output (replacing
the blank line).

*** page 224:  change "[\\t +]" to "[\\t ]+".

page 225:  add "file1 file2" after "program7_7".

*** page 239:  change "a?c" at end of caution to "ab?c".

*** page 241:  change fourth line to "...$match has the value ta" (not na).

page 247:  statement should be $var-- (printer's error: the dashes
run together).

*** page 248:  sentence should read "Here, there is no character corresponding
to d in the replacement list, so c, the last character in the replacement
list, replaces h."

page 265:  printer's error:  dashes in autodecrement run together (2
occurrences).

page 266:  delete the semi-colon in "$line = <INFILE>;"

page 275:  "This is the list of words" should appear on its own output line.

*** page 300:  last example should read "@numbers = split(/\s+/, $temp);"

page 352:  last children in tree should read "grandchild3" and
"grandchild4".

*** page 357:  delete parens before & in lines 13 and 27

*** page 358:  add the following statements after line 79:

$line =~ s/\(/ ( /g;
$line =~ s/\)/ ) /g;

page 377:  delete line numbers in input/output (55: and 56:)

page 378:  add a line of asterisks as the last line of output

page 385:  add the sentence

The following output is written to the file file1

before the "... page 1" line in the input/output.

page 407:  add "file1 file2" after "program12_4".

*** page 460:  output should read

90 degrees:
sine is 1
cosine is 6.1230317691118862911e-17

page 500:  delete "xxxxxx" in output

page 501:  syntax should read "The syntax for the hex function is..."

*** page 502-3:  change -11 to 11 throughout.  In step 4, interchange 26 and 15.

*** page 613:  line 14:  `whoami` must be in backquotes.

page 625:  add "file1" after "program18_3".

*** page 631:  first line of input/output should read "perl -a -n program18_5".

page 633:  add "file1" after "program18_6".

*** page 635:  change -l015 to -l014

page 646:  add "file1" after "program19_1".

page 666:  add "file1 file2 file3" after "program19_12".

page 670:  add "file1" after "program19_13".

page 735:  change "command number 11" to "command number 5".

page 739:  change "lc" to "ls".

*** page 785:  change =~ in second-last line to !~

*** page 810:  Exercise 1:  change "-l -0072" to "-l072".
