print "Inserisci una stringa senza blank\n";
$stringa = <STDIN>;
$lunghezza = length($stringa);
print "La stringa inserita $stringa è lunga $lunghezza caratteri \n";