#Guttman-Rosler Transform! 
my @sorted = map{
    substr $_, 5;
}sort {
    $b cmp $a
} map{
    m[,\s+(\d+)]
    ? sprintf '%05d%s', $1, $_
    : ()
} @msgs;
#End GRT
[download]

As confirmed here this is not a GRT. To qualify as a GRT, it must have a bald sort block. It's the bald sort block that gives the GRT a speed edge over its Schwartzian Transform cousin. See also Advanced Sorting - GRT - Guttman Rosler Transform.