my $str='xjxexrxoxexnxexsxxx';
 
my @chars = split //, $str;
my @chars_2nd;

while ( scalar @chars ){
  shift @chars;
  push @chars_2nd, shift @chars;
}
 
print join '', @chars_2nd;