use strict;
use warnings;

sub add {
    my $p = \shift;
    $p = \( $$p->{$_} ) for @_;
    $$p->{''} = 1;
}

sub shorten_unsplit {
    our $fixed;   local *fixed   = \$_[0];
    our $unsplit; local *unsplit = \$_[1];
    for ($unsplit) {
        if ( s/^([^A-Za-z]+[A-Za-z]?)// ) { $fixed .= $1; redo; }
        if ( s/^(?=(.))[A-Z]*[a-z]*//s  ) { $fixed .= $1; redo; }
    }
}

sub shorten {
    my @results;
    local *helper = sub {
        my ($trie, $fixed, $unsplit) = @_;
        my $single = ( keys(%$trie) == 1 );
        shorten_unsplit($fixed, $unsplit)
            if !$single || exists($trie->{''});
        for my $key (
            sort {; no warnings 'numeric'; $a <=> $b || $a cmp $b }
             keys(%$trie)
        ) {
            if ($key eq '') {
                push @results, $fixed;
            } elsif ($single) {
                helper($trie->{$key}, $fixed, "$unsplit$key");
            } else {
                helper($trie->{$key}, "$fixed$key", '');
            }
        }
    };

    my $trie;
    add($trie, /\d+|./sg) for @_;
    return if !$trie;
    helper($trie, '', '');
    return @results;
}

{
    chomp( my @data = <DATA> );
    print("$_\n") for shorten(@data);
}

__DATA__
...