[Perl] Afficher 1 numéro de ligne sur 100

Bonjour,

Dans un script PERL, je lis un fichier, comme ce fichier est ENORME, je ne parviens pas à suivre l'évolution du process. Je souhaiterais donc afficher le numéro de la ligne en cours 1 fois sur 100 ou 1000, j'ai donc penser faire :

while (<FICHIER_LOG>) {
     ....
     if (($. % 100) == 0) print "$.\n";

soit écrit le numéro de ligne si ce dernier est divisible par 100. Cependant j'ai l'erreur :

syntax error at test.pl line 168, near ") print"
Execution of test.pl aborted due to compilation errors.

Une idée de la bévu ? (j'ai aussi essayé if (($. % 100) = 0) print "$.\n"; sans plus de succés ).

Stéphane