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