use XML::Rules; my $parser = XML::Rules->new( stripspaces => 7, rules => { _default => '', 'Header,Content' => 'content', 'Article' => 'as array no content', 'Feed' => 'pass', } ); my $data = $parser->parse(\*DATA); use Data::Dumper; print Dumper($data); __DATA__
Hello world
Blah blah blah blah. .dfgd fgs dfg qwet sdfg dfgh
The end
Tjadydadyda. .dfgd fgs dfg qwet sdfg dfgh