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

##</code><code>##

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