1) atomo/atomo/S   * senza/senza/E   * nucleo/nucleo/S
2) chitarra/chitarra/S   * a/a/E   * corde/corda/S
3) coltello/coltello/S   * dalla/da/E   * lama/lama/S
4) edificio/edificio/S   * ad/ad/E   * facciata/facciata/S
5) biciclette/bicicletta/S   * a/a/E   * ruote/ruota/S
6) computer/computer/S   * con/con/E   * processore/processore/S
7) chiesa/chiesa/S   * con/con/E   * absidi/abside/S
8) opera/opera/S   * con/con/E   * volumi/volume/S
9) strada/strada/S   * a/a/E   * carreggiate/carreggiata/S
10) chitarra/chitarra/S  .* a/a/E  .* corde/corda/S
11) edificio/edificio/S  .* con/con/E  .* facciata/facciata/S
12) Codice/codice/S  .* scritto/scrivere/V   sulle/su/E  .* lettere/lettera/S
13) computer/computer/S  .* basati/basare/V   su/su/E  .* processore/processore/S
14) chiesa/chiesa/S  .* con/con/E  .* absidi/abside/S
15) opera/opera/S  .* con/con/E  .* volumi/volume/S
16) strada/strada/S  .* a/a/E  .* carreggiate/carreggiata/S
17) atomo/atomo/S  .* senza/senza/E  .* nucleo/nucleo/S
18) coltello/coltello/S  .* dalla/da/E  .* lama/lama/S
19) biciclette/bicicletta/S  .* a/a/E  .* ruote/ruota/S
20) coltello/coltello/S  .* a/a/E  .* lama/lama/S
21) codice/codice/S  .* di/di/E  .* lettere/lettera/S
22) biciclette/bicicletta/S  .* a/a/E  .* ruote/ruota/S
23) testa/testa/S  .* di/di/E  .* fronte/fronte/S
##</code><code>##

[Nn]ucle[oi]:[Pp]roton[oi]
OCS:chip
[Ff]otosistema:LHC
N2:[aA]zoto
[Cc]enobio:[Cc]appell[ae]
[Ee]sercit[oi]:[Ll]egion[ie]
[Tt]erreno:sabbia
[Ll]attosio:[Gg]lucosio
[Cc]odic[ei]:[Ll]etter[ae]
[aA]ttinio:[Ii]sotop[oi]
[Cc]erio:[Ii]sotop[oi]
##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
open my $listaParole,"File_Input/Coppie_Parole.txt" or die;
 
my %hash;
while (my $line=<$listaParole>) {
chomp $line;
my ($word1, $word2) = split /:/, $line;

$hash{$word1} = $word2;
}

open my $input, "<Wiki_Pulito/Prova/Pattern2.txt" or die;  
# Carico la parte di file di testo che va analizzata
open my $conteggio, ">Wiki_Pulito/Prova/Conteggio.txt";
# Apro il file di output
my $conto=0;
my %arrayris;
	while (my $text=<$input>){
	 for my $key (keys %hash){
	 my $value = $hash{$key};
	while ($text =~/(($key\/$key\/S)\s{0,2}(\.\*)\s{0,2}(con\/con\/E)\s{0,2}(\.\*)\s{0,2}($value\/$value\/S))/is){
	 $conto++;
}
	 my $arrkey=$key."-".$value;
	 $arrayris{$arrkey}=$conto;


	  
}
}
while ( my ($k,$v) = each %arrayris ) {
    print $conteggio "($k) => $v\n";
  
}
close $input;
close $conteggio;