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