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