s <- "Amar Akbar Anthony
\n" trimws(gsub("<[^>]+>","",s))