Select Code to Download

#!/usr/bin/perl

...
  my $value = sum @eachvalue, @chars == 7 && 50;
  $value *= ($dw ? 2 : 1) * ($tw ? 3 : 1);
  }

     input = eoaprzn
legalwords = 67
best score = 14
best words = zap