my $broken = $orig;
for my $chunk ( 1 .. length($broken) / $break_at ) {
    substr( $broken, $break_at * $chunk + $chunk - 1, 0 ,
            $break_at * $chunk + $chunk - 1 == length($broken) ? q{} : q{ }
    );
}