if ($more_text->tag ne "ahead")
   {
     	$more_text->move(last_child => $aheadtext);
      $more_text = $aheadtext->next_sibling;
    }
   if ($more_text->tag ne "ahead")
   {
     	$more_text->move(last_child => $aheadtext);
      $more_text = $aheadtext->next_sibling;
    }