Perl: Trouver la fin d’une chaîne de caractères

Author:
 #!/usr/local/bin/perl -w
  
 LINE:
while (my $ligne = <>) {
next LINE if $ligne