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";