$ perl -e 'print localtime( 1138597506 ). "\n"'
Sun Jan 29 23:05:06 2006

$perl -e 'print join " ", localtime( 1138597506 ), "\n"'
6 5 23 29 0 106 0 28 0 

##</code><code>##

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