Select Code to Download

new mask is
ffff00ffff
...
....g.....
....e.....
..........

 sub score {
  my ( $bd, $hi, $pos, $old, $word ) = @_;
  my $len  = length $word;
...
  my $helper = ( $old & ~$mask ) =~ tr/\0/-/r;
  say "helper is $helper";
say "$bd";

#!/usr/bin/perl

use strict;    # multiplayer upwords
...
  ('n') x 5, ('o') x 7, ('p') x 3, ('q') x 1, ('r') x 5, ('s') x 6, ('
+t') x 5,
  ('u') x 5, ('v') x 2, ('w') x 2, ('x') x 1, ('y') x 2, ('z') x 1;
return @drawpile; }

$ ./2.1.pt.pl 
abs is /home/bob/4.scripts/distro/2.1.pt.pl
path1 is /home/bob/4.scripts/distro
...
  side => 9,
}
$

...(same as above until)
  max_tiles => 7,
...
Use of uninitialized value in multiplication (*) at ./2.1.pt.pl line 3
+1.
$