my @space_loc;
while ($line =~ / /g) {
  push @space_loc, pos($line);
}