perlbook exercises