use strict;
use warnings;

my $string = 'abcdef123456' x 20;

my @array = split(/(.){70}/, $string);

@array = grep { defined } @array;