delet perl post