Help for this page
<COMMA><EXHIBITING></EXHIBITING></COMMA>
my $r = '\<(\D+)\>(.*?)(\<\/\1\>)'; while ($loc_diagnoses_text =~ m/$r/gi){ ... processing stuff .... }