open(FILE, "datebook.txt") || die "Can't open datebook: $!\n";
   while(<FILE>) {
       print if /Sir Lancelot/;
   }
   close(FILE);