m|^\s*<[^/>]+>(.+)</| and $_=$1; # Zap tags on both sides, if any
  # The line above looks for text enclosed in html tokens, and extracts the text. 
  # Eg: applying the regex to :  "<h2>Some text</h2>" places "Some text" into "$1", which is then copied into "$_"


  s|<[^>]+>||g;           # Zap single </onetag> tags
  # The line above handles left-over single tags:
  # Eg: it zaps "<sometag/>" from  "text1 <sometag/> text2"
  # Actually, it is rather crude, and does not care about tag termination, or matching.

##</code><code>##

  $collected_text .= $_;