Most of this new code can be replaced by:

sub compl { $_[0] =~ tr/a-z/zyxwvutsrqponmlkjihgfedcba/; \$_[0] }
compl( ++${compl($filename)} );
[download]

q-:

        - tye (but my friends call me "Tye")