D:\progs\javascript>j test.js
fodpefe!ufyu0

##</code><code>##

my $str = 'encoded text';
say join '', ( map { chr ord( $_ ) + 1 } split //, $str ), 0;