my $broken = join( q{ }, grep { $_ ne q{} } split( qr/(\S{$broken_at})/, $orig ) );