Perl vs PHP Shootout