Select Code to Download

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

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