$_ = $content; #content holds the html
while (m@href=\"\./\d+\.html\">(.+)</a>@g) {push (@array, $1);}