@parts = split(/<NP.*?>|<\/NP>/, $sentence);
$even = 0;
for $part (@parts) {
    if ($even) {
        $part =~ s/\/\w\w//g;
        $part .= '/NP';
    }
    $even = ! $even;
}
$result = join('', @parts);