Select Code to Download

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