1 while $res =~ s|<[^<>]*?>||g;