Select Code to Download

<?php
   $phpemail = "test\@test.com\n";
...
   $perl->eval('$perlemail="test\@test.com";print "Perl email = $perle
+mail\n"');
   print "Bye!\n";
?>

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)