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