#!/usr/bin/perl

use strict;
use warnings;

use XML::Twig;

XML::Twig->new( twig_handlers => { 'p[@v="NO"]' => sub { $_->cut; } },
                pretty_print => 'indented',
              )
        ->parsefile( "myfile.xml")
        ->print;