modifying perl