$string =~ m%<a href="([^"]+)">(.*)</a>%;