aggiunto perl cerca