#!/usr/bin/perl -w
use strict;
my $caract = "";
my $s = "ouaiouai";
my $i = 0;
while ($i < length($s)){
	$caract = $s[$i];
	print "$caract\n";
	$i++;
}

# erreur : Global symbol "@s" requires explicit package name at s.pl line 7.