my @sorted = map{
    substr $_, 5;
}sort { 
    $b cmp $a 
} map{
    m[,\s+(\d+)]
    ? sprintf '%05d%s', $1, $_
    : ()
} @msgs;