$VAR1 = [
          <chunk1>,
          <separator>,
          <chunk2>,
          <separator>,
          <chunk3>,
          <separator>,
          <chunk4>,
          <separator>,
          <chunk5>
]

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $input = "1234567890abcdefghij0987654321ABCDEFGHIJlmnop";

my @chunks = ($input =~ /.{1,10}/g);

print Dumper \@chunks;

##</code><code>##

$VAR1 = [
          '1234567890',
          'abcdefghij',
          '0987654321',
          'ABCDEFGHIJ',
          'lmnop'
        ];