Como extrair links do HTML com um regex Perl?
Eu tenho um html ENORME que possui muitas coisas que não preciso, mas dentro dele existem URLs fornecidos no seguinte formato:
<a href="http://www.retailmenot.com/" class=l
Estou tentando extrair os URLs ... Tentei, sem sucesso:
open(FILE,"<","HTML.htm") or die "$!";
my @str = <FILE>;
my @matches = grep { m/a href="(.+?") class=l/ } @str
Alguma idéia de como combinar isso?