http://www.perlmonks.org?node_id=11156979

$a=.9*time>>24,$b=23,print map chr$b+ord,split//,qq(3*$a);