El
$1 y
$2 se refieren a cada par de paréntesis de captura de la expresión regular...
Hummm... te falta leer un poco de documentación... no puedes programar en Perl (ni en otro lenguaje) a base de prueba-error... tardarás muchísimo más que si leyeras un poco más sobre Perl.
Y si estás haciendo una pregunta, usa '¿' y '?' o te arriesgas a que nadie te conteste.
![Laughing :lol:](https://perlenespanol.com/foro/images/smilies/icon_lol.gif)