(\d{4}(?:_\d\d){5}_\d{3})

##</code><code>##

sort { $a->[1] cmp $b->[1] }

##</code><code>##

sort { $b->[1] cmp $a->[1] }