$n=<>-1;s/(.{1,$n})\s/$1
/g,print for<>