Select Code to Download

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

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