my $string = "thisisalongstringofcharacters"; my (@strings) = split /(.{5})/,$string;