「Perlではこう書くんだけど、PHPではどう書くの？」
とか、逆に
「PHPではこう書くんだけど、Perlではどう書くの？」
ってな質問用スレッドです。
質問はスクリプトの丸投げをせずに、必要最小限のみでしてください。