Wie extrahiere ich Links aus HTML mit einer Perl-Regex?

Ich habe einen riesigen HTML-Code, der viele Dinge enthält, die ich nicht brauche, aber darin befinden sich URLs, die im folgenden Format bereitgestellt werden:

<a href="http://www.retailmenot.com/" class=l

Ich versuche die URLs zu extrahieren ... Ich habe es versucht, ohne Erfolg:

open(FILE,"<","HTML.htm") or die "$!";
my @str = <FILE>;

my @matches = grep { m/a href="(.+?") class=l/ } @str

Ist eine Idee, wie man das zusammenbringt?

Antworten auf die Frage(2)

Ihre Antwort auf die Frage