Select Code to Download

V(qw/74 401 211 79/);
sub V{while(@_){
...
            chr(shift):
                chr(reverse(pop))}$_)
        ,$V+=$#_%2!=1?1:0}}

V(qw/74 401 211 79/);sub V{while(@_){$v**=$V?$#_:$V;
print(map{$V<$v?chr(shift):chr(reverse(pop))}$_),$V+=$#_%2!=1?1:0}}