my $a = "HereIsTheStringAsString";
my $n = 5;


while($a =~/.{1,$n}/){print "$&\n"; $a = $'};

__END__

HereI
STheS
tring
AsStr
ing