sub get_stop{
  # sample
  my %stop =
    map { $_ => 1 }
    qw(and any the they);
  \%stop;
}

sub get_punc{
  # sample
  my %punc = 
    map { $_ => ' ' }
    qw(’ ‘ ” “);
  \%punc;
}


##</code><code>##

  s/(&#?\w+;)/$punc->{$1}||$1/eg;


##</code><code>##

  next if $stop->{$_};


##</code><code>##

''words in double single quotes''


##</code><code>##

  for (@words){
    s/^['-]+//;
    s/['-]+s?$//;
    next if length() < $min or length() > $max;
    next if $stop->{$_};
    next if /\d/ and not /^[12]\d{3}s?$/;
    #  next if /--/;  # not needed anymore
    $words_all->{$_}->{$file_key} += 1;    
  }


##</code><code>##

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