Script perl modifi