eval join "",
   map {
      chomp;
      s/^[^>]+>\s*//;
      $_}
         grep{/>/} <DATA>;