gives(ovid,book(learning_perl,[merlyn,rootbeer],publisher(o_reilly),third_edition),grep).