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.
