Copia y sustitución simultáneas

El operador de binding =~ nos permite ``asociar'' la variable con la operación de casamiento o sustitución. Si se trata de una sustitución y se quiere conservar la cadena, es necesario hacer una copia:

$d = $s;
$d =~ s/esto/por lo otro/;

en vez de eso, puedes abreviar un poco usando la siguiente ``perla'':

($d = $s) =~ s/esto/por lo otro/;

Obsérvese la asociación por la izquierda del operador de asignación.