$c=<>-1;s/.{1,$c}\K\s/
/g,print for<>