Demonstration de match

Contenu de la script s6.2.cgi - Y2K

$query = $ENV{'QUERY_STRING'};
($field, $value) = split(/=/, $query);
$value =~ tr/+/ /;

print qq(Votre donnee est : "$value".), "
\n";

$value =~ s/y/k/gi; 

print qq(Pour l'annŽe 2000 il faut : "$value".), "
\n";