Select Code to Download

my $str='xjxexrxoxexnxexsxxx';
my $idx = -1;
...
$str_2nd .= substr( $str, $idx+=2, 1) while( $idx < length $str);
 
print "\n$str_2nd\n";

my $str='xjxexrxoxexnxexsxxx';
 
...
}
 
print join '', @chars_2nd;