$_ =~ s/<s1>/<section1>/g;
if ($_ =~ /<sb>/)
{
   while($_ =~ /<\/sb>/)
   {
      $_ =~ s/<s1>/<h1>/g;
   }
}