my $str = "PERLPERLPEBLPEBLPERL";
my @parts = $str =~ /.{1,4}/g;