use strict;

my $plainText = '123456781234567812';
my @piece = $plainText =~ /.{1,8}/g;