print for map{
    unpack 'x255A*', $_
} sort map {
    ( my $x = $_ ) =~ s[(\d+)]{ pack 'N', $1 }ge;
    pack 'a255a*', $x, $_;
} <DATA>;