use strict;
use XML::Rules;

my $parser = XML::Rules->new(
	stripspaces => 7,
	namespaces => {
		'http://www.somedomain.tld/market_reg/admin_server/1.0' => '',
		'http://www.w3.org/2001/XMLSchema-instance' => 'xsi',
	},
	rules => {
		_default => 'content',
		instance_information => 'as is',
		'action_request,info_request' => sub {
			my ($tag,$attr) = @_;
			print $attr->{action}, "\n";
			while ( my ($k,$v) = each %{$attr->{instance_information}}) {
				print "  $k: $v\n";
			}
			print "\n";
			return;
		},
	},
);

$parser->parse(\*DATA);

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<instruction_request xmlns="http://www.somedomain.tld/market_reg/admin_server/1.0"
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xsi:schemaLocation="http://www.somedomain.tld/market_reg/admin_server/1.0 admin_server.xsd">
    <request>
...

##</code><code>##

use strict;
use XML::Rules;

my $parser = XML::Rules->new(
	stripspaces => 7,
	namespaces => {
		'http://www.somedomain.tld/market_reg/admin_server/1.0' => '',
		'http://www.w3.org/2001/XMLSchema-instance' => 'xsi',
	},
	rules => {
		_default => 'content',
		instance_information => 'pass',
		'action_request,info_request' => 'pass',
		'request' => 'as array',
		'instruction_request' => sub {$_[1]->{request}},
	},
);

my $data = $parser->parse(\*DATA);
use Data::Dumper;
print Dumper($data);

__DATA__
...

##</code><code>##

...
		'action_request,info_request' => sub { my ($tag, $attr) = @_; $attr->{type} = $tag; return %{$attr}},
...