my $t= XML::Twig->new( 	twig_print_outside_roots => 1,
                              twig_roots	  =>  {'div' => sub {
				           					my ( $t, $e ) = @_;
				           				    print STDOUT $e->text;
				           					$t->purge;
				           					},
				           					'style' => sub {
				           					my ( $t, $e ) = @_;
				           				    $e->print();
				           					$t->purge;
				           					} 
           				},
           				keep_atts_order => 1,
                      );