Sería algo así...(Lo escribo de memoria, puede tener errores)
Código:
#abrimos el documento
open(FILE,"<pag.html");
while (my $line = <FILE>){ #ANALIZAMOS CADA LINEA DEL SCRIPT
my (@links) = $line =~ /href\=\"(.*?)\"/; #CARGAMOS EN @LINKS el contenido de los href
print join("<br>", @links); #imprimimos los links que se cargaron separados de un br
}
close (FILE);
Lo escribí mientras te respondía, no lo probé...Hacelo vos...jeje
Saludos