Re: Split on every second character

[linuxer]

If you are sure that the string is even sized, you can use a simple regex like this:

use strict;
use warnings;

my $string = "0102030405";
# will miss the last character when string is odd sized
my @elements = $string =~ m/(..)/g;
print "@elements\n";

Update: modified code

[GrandFather]

and if you are unsure but want the last character for odd length strings you can:

my @list = $str =~ /(..?)/g;

[gri6507]

I didn't think of using the match operator for this. Thanks!