Just been busy ahacking...

[woolfy]

@a=qw(a h a c k i n g 7323 14188 9872 5552 17985 12496 5422 7576);
        for(0..7){for$i(0..$a[8+$_]){$a[$_]++;}}
          $_=join($*,@a[0..7],$/);s|z| |g;
                         print;

Coworked with liz
Upd: 3dan made a nice and obfu-er japh which I quite like!

[edan]

Inspired by recent discussions regarding string increment magic, or just coincidence?

--
3dan

[woolfy]

Indeed, inspired by that magic. Just a couple of days ago I asked liz the same question about the absence of decrement magic for strings.