XML tag delete

#how to opening and close tag delete in the xml file

print "First steps\n";
$pos = tell DATA;
while(<DATA>){
      s/<.*?>//g;           #tags delete text only display
      print;
}

print "Second steps\n";
seek DATA, $pos, 0;
while(<DATA>){
      s/<.*>/\n/g             #Entirely delete nothing to display
      print;
}


__END__
<h1 type="0.25">Koike family</h1> <h2>Home Page</h2> <h3>By chaichanpapa</h3>