Select Code to Download

<COMMA><EXHIBITING></EXHIBITING></COMMA>

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