#!/usr/local/bin/perl -w
use strict;

my $file = do{local $/; <DATA>};

$file =~ s/ < (?!=BR) [^>]* > //gsmx;
 
print $file;

exit;


__DATA__
<P ID="pStyle21X0"><SPAN ID="textStyle14">Parthenogenesis . . . . . . . . . . . . . . 592 <BR>Patents on Life-Forms . . . . . . . . . . . 594 <BR>Paternity Tests . . . . . . . . . . . . . . . 596 <BR>Pedigree Analysis . . . . . . . . . . . . . 599 <BR>Penetrance . . . . . . . . . . . . . . . . . 602 <BR>Phenylketonuria (PKU) . . . . . . . . . . 604 <BR>Plasmids . . . . . . . . . . . . . . . . . . 606 <BR>Polygenic Inheritance . . . . . . . . . . . 609 <BR>Polymerase Chain Reaction . . . . . . . . 611 <BR>Polyploidy . . . . . . . . . . . . . . . . . 613 <BR>Population Genetics . . . . . . . . . . . . 617 <BR>Prader-Willi and Angelman </SPAN>^M
</P>^M
<P ID="pStyle21X4"><SPAN ID="textStyle14">Syndromes. . . . . . . . . . . . . . . . 623 <BR>Prenatal Diagnosis . . . . . . . . . . . . . 626 <BR>Prion Diseases: Kuru and </SPAN>^M
</P>^M
<P ID="pStyle21X4"><SPAN ID="textStyle14">Creutzfeldt-Jakob Syndrome . . . . . . 631 <BR>Protein Structure . . . . . . . . . . . . . 634 <BR>Protein Synthesis. . . . . . . . . . . . . . 638 <BR>Proteomics . . . . . . . . . . . . . . . . . 643 </SPAN>^M
^M
<SPAN ID="textStyle14">Pseudogenes . . . . . . . . . . . . . . . . 646 <BR>Pseudohermaphrodites . . . . . . . . . . 648 <BR>Punctuated Equilibrium. . . . . . . . . . 650 </SPAN>^M
</P>^M