l'avantage de $chaine =~ s/^.// c'est que ca modifie la variable "in place" et l'interpreteur peut optimiser la chose. Par exemple ici il va simplement décaler l'offset de début dans la structure qui represente la chaine (SvOOK) et éviter de faire une copie de memoire. Evidement ca change pas grand chose pour une petite chaine, mais ca peut jouer sur une grosse chaine pour virer un entete par exemple