$/ = undef; $_ = ; s/<[^>]+?>//mg; print;