Hmm, I have to concur. Just wrapped the code around the regex without sufficient thought. Given that its function it should really pass back a locked filehandle for writing. On the to do list

$\=' ';
sub AUTOLOAD{@_=caller();print shift}
package Back;&::;
package To;&::;
package The;&::;
package Drawing;&::;
package Board;&::;
[download]