my $hss = HTML::StripScripts::Parser->new({
        Context         => 'Flow',
        BanList         => [qw( h1 h2 )],    
        Rules => { div  => {            
					 class     => 1,										
				   },
				 ul  => {            
					class     => 1,					
				   },
				 li  => {            
					class     => 1,										
				   },
				 ol  => {            
				 	class     => 1,										
				 },}
    });
    
print $hss->filter_html($HTML);