Select Code to Download

sub get_stop{
  # sample
...
    qw(’ ‘ ” “);
  \%punc;
}

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

  next if $stop->{$_};

''words in double single quotes''

  for (@words){
    s/^['-]+//;
...
    #  next if /--/;  # not needed anymore
    $words_all->{$_}->{$file_key} += 1;    
  }

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