modificata parte sul perl