#! /usr/bin/perl

my $string = 'Dies ist ein ganz langer Test';
my $length = 4;
my @array = $string =~ /(.{1,$length})/g;

print $_,"\n" for(@array);