use strict;
use XML::Rules;

my $link = "Thammasat";
my $rlinks =    {
	"institute" => ["test"],
	"year" => ["test"],
	"degree" => ["test"],
	"faculty" => ["test"],
	"major" => ["test"],
	"gpa" => ["test"],
};

my $parser = XML::Rules->new(
	style => 'filter',
	ident => '    ',
	rules => {
		_default => 'raw extended',
		record => sub {
			return $_[0] => $_[1] unless $_[1]->{':institute'}{_content} eq $link;

			return $_[0] => $rlinks;
		}
	},
);

$parser->filterfile('employee.xml', 'employee-filtered.xml');