my $width = 8;
my $break_at = 4;

my $orig = "#" x $width;

(my $broken = $orig) =~ s/(\S{$break_at})(?!\z)/$1 /g;

print qq{'$orig'\n}, qq{'$broken'\n};