Select Code to Download

        for my $i ( 0 .. $lengthString - 1 ) {
            my $char0 = substr( $string0, $i, 1 );
...
            my $char3 = substr( $string3, $i, 1 );
            }
                }

        for my $i ( 0 .. $lengthString - 1 ) {
                     for my $j (0 .. $numChars - 1){
...
                my $char$j = substr( $string$j, $i, 1 );
                  }
                }