défi perl