$remainder =~ s/< \s*? a \s .*? href .*?>//xi;