Perl : Recherche chaine de caractére

if         #si

(
$resp =~ # la variable corresponds au motif
m        # l'opérateur match
~        # le séparateur de regex
$left    # variable interpolée dans regex
(.*?)    # $1 -> capture de n'importe quel caractère 
         # zéro fois, une fois ou n'importe combien de fois 
	 #mais en evitant la gourmandise de *
$right   # une autre variable interpolée
~        # séparateur regex
s        # modificateur de regex
         # Permet de traiter une chaîne comme une seule ligne. 
         # Le caractère . reconnaît alors n'importe quel caractère, 
         #  même une fin de ligne \n, qui normalement n'est pas reconnue. 
)  
{        # Alors
$result{$_} = $1;  # on affecte $1 (la capture de regex) comme valeur pour clé $_ de hash %result 
}