Select Code to Download

#!/usr/bin/perl -l

...
substr $grid, $1 * ($N + 1) + $2, 1, shift @letters
  while $matches =~ /(\d+) (\d+)/g;
print "Formatted solution:\n\n$grid";

Initial grid:

...
----W
--O--