@links = $html =~ m/<a[^>]+href\s*=\s*["']?([^"'> ]+)/ig;