Demonstration de des variable $`, $' et $&

Contenu de la script s6.3.cgi

#Get and decode the string input. 
#$query = $ENV{'QUERY_STRING'};
$query = "string=Please+HELP+me!"; 
($field, $value) = split(/=/, $query);
$value =~ tr/+/ /;

#Find the first "HELP" in String. 

$value =~ m/help/i; 

#Print the results; 

print qq(Avant le mot help il y a "$`"), "\n";
print qq(Le mot help : "$&"), "\n";
print qq(Apres le mot help il y a "$'"), "\n";