if ($result->entries || grep(/\b$alias\b/i, @aliases)) {
            if (my ($fixed,$plusable) = $alias =~ /(.*?)([a-z]*\d+)$/i) {
                ++$plusable;
                $alias = $fixed.$plusable;
                print $alias;
            } elsif