use strict; 
use warnings; 
use Readonly; 
my $html = <<'END_HTML'; 
<span class="mtxt"> (live)</span>  
&nbsp;<span class="spons_link_in_event_box"><a onclick="window.open('http://ad2.ip.ro/please/redirect/5405/1/1/10/?param=165779/169144_0_','_blank','scrollbars=yes,location=yes,menubar=yes,resizable=yes,toolbar=yes,width=860,height=580');return false;" href="http://ad2.ip.ro/please/redirect/5405/1/1/10/?param=165779/169144_0_"><font color="blue"><b>Pariaţi LIVE pe rezultate!</b></font></a></span>   
 
<div style="display: none;">  
 
<!-- Adserver zone (write): 62818, port_bet365_av_mero -->  
<script type="text/javascript">  
// <![CDATA[  
if(!window.goA)document.write('<sc'+'ript src="http://imgs.adverticum.net/scripts/gwloader.js?ord='+Math.floor(Math.random()*1000000000)+'" type="text/javascript"><\/sc'+'ript>');  
// ]]>  
</script><script type="text/javascript">  
// <![CDATA[  
if(window.goA)goA.addZone(62818,{displayOptions:{bannerhome:'http://ad.adverticum.net'}});  
// ]]>  
</script><script charset="iso-8859-2" src="http://ad.adverticum.net/js.prm?zona=62818&amp;ord=c8Gh1Xu1Gp2Ob5Fi7Q&amp;re=http%3A%2F%2Fport.ro%2F"></script>  
<noscript><a href="http://ad.adverticm.net/click.prm?zona=62818" target="_blank" title="Click here!"><img border="0" src="http://ad.adverticum.net/img.prm?zona=62818" alt="Advertisement" /></a></noscript>  
</div>   
 
<p class="desc_text">Dublin SuperCup</p> 
END_HTML 
Readonly::Scalar my $div_tag     => qr{<div.*>}; 
Readonly::Scalar my $div_text    => qr{.*}ms; 
Readonly::Scalar my $div_end_tag => qr{</div>}; 
Readonly::Scalar my $div         => qr{$div_tag$div_text$div_end_tag}; 
$html =~ s/$div//g; 
print $html;