use strict; use warnings; use XML::Twig; use Data::Dump::Streamer; my $twig = XML::Twig->new (); $twig->parse (*DATA); my $hash = $twig->simplify (); Dump ($hash); __DATA__ $Id: File_Find.pl,v 1.1 2006-12-17 19:25:03 eric Exp $ 2006-12-10 Blah Foo Bar ...
foo bar baz