Select Code to Download

 [Nn]ucle[oi]:[Pp]roton[oi]
OCS:chip
[Ff]otosistema:LHC
...
[Tt]erreno:sabbia
[Ll]attosio:[Gg]lucosio
codice:lettera

#!/usr/bin/perl
use strict;
use warnings;
...
}
close $testo;
close $conteggio;