5 minutes to go home... I realy want post something...
perl -e '%h=qw/? O " Y ! { S 1/;print chr(oct((ord$_)-22)+oct((ord$h{$_})-22))foreach(sort{ord($a)<=>ord($b)}keys%h);$_=$/;print'
perl -e '%h=qw/? O " Y ! { S 1/;print chr(oct((ord$_)-22)+oct((ord$h{$_})-22))foreach(sort{ord($a)<=>ord($b)}keys%h);$_=$/;print'
perlmonks.org content © perlmonks.org and smokemachine
prlmnks.org © 2006 edmund von der burg (eccles & toad)
v 0.03