(?(DEFINE)
            (?<vowel>
                (?&diphthong)
              | \p{IsVowel}
              |
                (?<=  \p{IsConsonant} )
                (?<!  V               )
                [yY]
            )
            (?<consonant>
                (?&digraph)
              | (?= \pL ) ( [^aeiou] ) \g{-1}
              | \p{IsConsonant}
              | (?<= [V\p{IsVowel}] ) [yY] (?= [V\p{IsVowel}] )
              | [yY] (?= [V\p{IsVowel}] )
            )

            (?<digraph>
                rrh
              | sch
              | sci (?= ous )
              | [cgkprstw] h
              | ng (?= \p{IsConsonant} | $ )
              | ^ [gk] n
              | mb (?!= \p{IsVowel} )
              | ^ ps
            )

            (?<diphthong>
                  eau | oue
                | aa | ae | ai | au | a[yV]
                | ea | ee | ei | e[yV]
                | eo | eu
                | ie
                | oa | oe | oi | o[yV]
                | oo | ou | ow
                | ue
                | ui | u[yV]
            )

    Little Red Mushrooms
    Little Red Riding Hood
    Little Red Tent
    Little Red, More Blue
    Little, Red Rider

    Little Red, More Blue
    Little Red Mushrooms
    Little, Red Rider
    Little Red Riding Hood
    Little Red Tent

my $MAXLEN = length("18446744073709551616");  # 2**64
my @data = ();
while (my $datum = <>) {
    my $_ = $datum;
    s/(\d+)/sprintf "%0${MAXLEN}d", $1/ge;
    push @data, {
        STRING      => $datum,
        SORTKEY     => $_,
    };
}
for (sort { $a->{SORTKEY} cmp $b->{SORTKEY} } @data) {
    print $_->{STRING};
}

sub fixstring(_) {
    my $_ = shift();

    # these must be done in order, or else you'll
    #   -- miss zero-padding numbers
    #   -- accidentally convert Greek iota or xi to Roman numerals!

  # STEP 1: Romans to Arabic
  #    convert valid Roman numeral to regular digits
  #    only do small numbers (no L,D,C,M)
  #    must be between boundaries for single-letters
  #    must have either boundaries for multi-letters

    # First do the real Unicode Roman numerals,
    # which are of course guaranteed to be Roman

  #   handle correctly formatted comma'd numbers

    s{ (
            # allow a plus or minus
            # let them use any kind of dash but em and en
            (?:
                (?! [\N{EM DASH}\N{EN DASH}]  )
                [\N{PLUS SIGN}\N{PLUS-MINUS SIGN}\N{MINUS-OR-PLUS SIGN}\p{Dash}]
            )
           (?: \b \d{1,3} (?: , \d{3} )+ \b
             | \d+
           )
       )
       (?: \. (\d+) )?
    }{
        my ($left, $right) = ($1, $2);
        $left =~ s/[\N{COMMA}\N{PLUS SIGN}\N{PLUS-MINUS SIGN}\N{MINUS-OR-PLUS SIGN}]//g;

  +---+
  |   |
  |
  |
  |
__+__

-------

  +---+
  |   |
  |   O
  |
  |
__+__
e
-------

  +---+
  |   |
  |   O
  |
  |
__+__
e, i
-----i-

  +---+
  |   |
  |   O
  |   |
  |
__+__
e, i, s
-----i-

  +---+
  |   |
  |   O/
  |   |
  |
__+__
e, i, o, s
-----i-

  +---+
  |   |
  |  \O/
  |   |
  |
__+__
a, e, i, n, o, s
-a--ai-

  +---+
  |   |
  |  \O/
  |   |
  |  /
__+__
a, c, e, i, n, o, s
-a--ai-

  +---+
  |   |
  |
  |
  |
__+__

-------------------

  +---+
  |   |
  |
  |
  |
__+__
e
-----e----e----e--e

  +---+
  |   |
  |   O
  |
  |
__+__
a, e, t
----te---te----e--e

  +---+
  |   |
  |   O
  |
  |
__+__
a, e, n, t
---nte--nte----en-e

  +---+
  |   |
  |   O
  |
  |
__+__
a, c, e, n, t
c--nte--nte----ence

  +---+
  |   |
  |   O
  |
  |
__+__
a, c, e, n, r, t
c--nter-nte----ence

  +---+
  |   |
  |   O
  |   |
  |
__+__
a, c, e, n, r, s, t
c--nter-nte----ence

  +---+
  |   |
  |   O
  |   |
  |
__+__
a, c, e, n, o, r, s, t
co-nter-nte----ence