while ( $string =~ m!(<a[^>]*>)([^<]+</a[^>]*>)!ig )