[Perl] strlen

#!/usr/bin/perl
#
my $chaine="Mais apparament ce n'est pas possible de se déplacer comme en C dans une chaine de caractère.";

#avec boucle comme on fait en C - v2
sub strlen_C {
        my $i;
        my @s = split '',$_[0];;
        while(@s){
                ++$i;
                shift @s;
        }
        return $i;
}
my $i = strlen_C($chaine);
printf "1. Longueur de \$chaine = $i\n";

# avec les expressions régulières
sub strlen_RE {
        my @i = $_[0]=~/(.)/g;
        return scalar @i;
}
my $i = strlen_C($chaine);
printf "2. Longueur de \$chaine = $i\n";

# pas vraiment besoin d'une fonction personnalisée
print "3. Longueur de \$chaine = ",
      scalar(split '',$chaine),"\n";
__END__

lami20j@debian:~/trash$ perl strlen.pl
1. Longueur de $chaine = 93
2. Longueur de $chaine = 93
3. Longueur de $chaine = 93