$remainder =~ s/<a\b[^>]*>//i;