You could also yust use (with a split before and a join after):

sort {
substr($a,1,5) cmp substr($b,1,5)
||
substr($a,10,5) cmp substr($b,10,5)
||
substr($a,22,2) cmp substr($b,22,2)
||
...
} @lines;
[download]

Andre