eval('$perlemail="test\@test.com";print "Perl email = $perlemail\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($,,$;,$*,$/)