$text =~ s|^.*(<a .+?</a>).*$|$1|s;