#23456789_123456789_123456789_
$_=hex a;print$_--,"\n"while$_

##</code><code>##

#23456789_123456789_12345678
$_=hex a;print$_--,$/while$_