perl -e"print substr$_,6 for sort map{sprintf('%02d'x3).$_,/^(\d+)-(\d+)-(\d+)/} <>" junk

##</code><code>##

P:\test>perl CON junk
print substr$_,6 for sort map{/^(\d+)-(\d+)-(\d+)/
&&sprintf('%02d'x3).$_,$3,$1,$2}<>
^Z