perl - Clean everything after start till to the end point -

want clean after 1 start point till end one

example:

    <!--         <group>                 <name>octopus</name>                 <inventory>                         <inventoryname>octopus</inventoryname>                         <decoder>dffdd</decoder>                         <command>cat /etc/hosts</command>                 </inventory>         </group>  --> 

where <!-- start point , --> end point content multiple lines end point. in tags want deleted.

i try start things sed like:

sed 's/^<\!--//g' not sure how continue after catch , cleaned when saw end tag.

non greedy substitution regex . matching newlines,

$string =~ s|<!-- .*? -->||xsg;