Perchè questo codice , costruito metà da me e metà dal mio libro, non funziona?

codice:

use strict;
use warnings;
my $stringa = "Arianna" ;

print "la stringa è lunga " ;
.lenght( $stringa );
." caratteri.\n";
Mi da errore nella "Line 5", near "_" .
Non sono riuscito ad individuare l'errore.

La parte sottolineata è scritta da me , quella non sottolineata è copiata dal libro.