my $parser = XML::Rules->new(
	stripspaces => 7,
	rules => {
		_default => '',
		river => sub {'.river' => "$_[1]->{_content}\n"},
		fish => sub {
			print <<"*END*";
[ Survey information for: $_[1]->{name} ]:

Saltwater:$_[1]->{saltwater}
Freshwater:$_[1]->{freshwater}
Rivers covered in survey:

$_[1]->{river}
*END*
		},
	}
);
$parser->parse($xml_raw);