Capitolo perl