my $xml = <<'*END*'; Valka s mloky Karel Capek It's really something and I have to underline it. Predtucha Pujmanova It's really a stupid pointless book. Confront this one. And don't read this one please! *END* my $parser = new XML::Rules ( rules => [ _default => 'content', u => sub {my $str = $_[1]->{_content}; $str =~ tr/ /_/; return '_'.$str.'_'}, b => sub {my $str = $_[1]->{_content}; return '*'.$str.'*'}, link => sub { qq{$_->{_content}} }, book => sub { my $desc = $_[1]->{description}; $desc =~ s/\n/\n\t/g; print "Book: $_[1]->{name}\nAuthor: $_[1]->{author}\nDescription: $desc\n\n"; }, ], ); $parser->parsestring($xml);