Select Code to Download

my @scorearray = map { {score=>$_, text=>$hash{$_}} } keys %hash;

for my $word (@scoreWords) {
  my $qmword = quotemeta($word);
...
    $scorebit->{'score'} += 1 if $scorebit->{'text'} =~ $regexp;
  }
}

printf "%-7s%s\n", "Score", "Value";
for my $scorebit (@scorearray) {
  printf "%5d  %s\n", $scorebit->{'score'}, $scorebit->{'text'};
}

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/