my $xml = <<'*END*';
Valka s mlokyKarel CapekIt's really something and I have to underline it.PredtuchaPujmanovaIt'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);