$var =~ s/ < ! - - ( . | \ n ) * - - >//g; 

##</code><code>##

$var =~ s/<!--.*?-->//gi;