Select Code to Download

sub stripPOS {
  my $words = shift;
...
}
  $sentence =~
    s! \s \<NP\d*\> (.*?) \</NP\> \s ! stripPOS($1). '/NP' !egx;

<NP1> <NP2> The/D best/A one/N </NP>
  of/P <NP2> the/D Perl/N Monks/N </NP> </NP>