Select Code to Download

$VAR1 = [
          <chunk1>,
...
          <separator>,
          <chunk5>
]

#!/usr/bin/perl

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

print Dumper \@chunks;

$VAR1 = [
          '1234567890',
...
          'ABCDEFGHIJ',
          'lmnop'
        ];