push @anchors, $1 while $html =~ s/(<a .*?>)//s;
$html = join '', @anchors, $html;