Select Code to Download

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

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