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