• please use a consistent way of intendation; it makes the code more readable; I think perlstyle has something about that.
• the mix of english and italian variable names doesn't help to understand the code
• the italian comments don't help those who don't speak Italian
• your regex cannot match, as you use (\.\+) in it, but where in your data source is the string .*?
• Is it correct, that in your data source, some lines use '*', other '.*' to separate the items per line?
• you use \s{0,2} in your regex; making it something like "string(0-2 whitespaces)string"; but I saw s/th like "string(3 whitespaces)string" in your data source; maybe you should consider using \s*

update

1. question changed
2. +: whitespace regex
3. fixed typo