1: #!/usr/local/bin/perl -w
   2: 
   3: use strict;
   4: use LWP::Simple;
   5: 
   6: $_ = get("http://classics.mit.edu/Lao/taote.mb.txt")
   7:   or die "The page that can be fetched is not the true page\n";
   8: my $chapter = 1 + int(81 * rand());
   9: my $end =
  10:   $chapter == 37 ? '\n-------' :
  11:   $chapter == 81 ? '\nTHE' :
  12:   ('\nChapter\s+' . ($chapter + 1). '\s*\n');
  13: /^(Chapter\s+$chapter\s*\n.*?(?=$end))/ms && print $1;