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