#! /usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $input = "1234567890abcdefghij0987654321ABCDEFGHIJlmnop";

chomp $input;


my @chunks = split(/(.{10})/,$input);

print Dumper(\@chunks);

__END__

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