note
biohisham
<code>
bioslayer@bioslayer:~/Desktop/Development/test$ perl -
use strict;
use warnings;()=
sort{index+0x47,&$a($b)}sub{print&{;pop}},
sort{sub J{$!++&1}[0]}sub{exec''},map{@$_}
sort{sub _{[(pop)x((1<<$!-->>47)|1)]}!{()=
sort{my$_=$a;$a=_(sub{$_})if!/0/}$a,$b,0}}
sort J('rke%ca hlrPe rhetoan tus;J')=~/./g
__END__
Just another Perl hacker0bioslayer@bioslayer:~/Desktop/Development/test$
</code>
Works as advertised, printing an extra 0 at the trail.
<c>
##Platform##
Perl 5, version 12, subversion 4 (v5.12.4) built for i686-linux-gnu-thread-multi-64int
</c>
<div class="pmsig"><div class="pmsig-769448">
<hr>
David R. Gergen said "We know that second terms have historically been marred by hubris and by scandal." and I am a two y.o. monk today :D, June,12th, 2011...
</div></div>
965457
965457