هذا الكود موجود بالغة perl لكن أنا أريده بالغة php فهل أحدى من الشباب يساعدني في العثور عليه