push @posns, pos($screen) - length $1  while $screen =~ /([^X]+)/g;

##</code><code>##

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