push @posns, $-[ 0 ] while $screen =~ m[([^X]+)]g;