#!/usr/bin/perl

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

my $input = "1234567890abcdefghij0987654321ABCDEFGHIJlmnop";

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

print Dumper \@chunks;