use strict;
use XML::Rules;

my $filter = XML::Rules->new(
	style => 'filter',
	rules => {
		'IntDir,OutDir' => sub {
			my ($tag,$attr,$context,$parents) = @_;
			$attr->{_content} =~ s/\bReleaseDLL\b/ReleaseDLL32/
				if $context->[-1] eq 'PropertyGroup' && $parents->[-1]->{Condition} =~ /'Release DLL\|Win32'/;
			return $tag => $attr;
		},
	}
);

$filter->filterfile($inputFilename, $outputFilename);