sub ReplaceInComment
{
   my ($data, $type, $left, $right) = @_;
   if($left eq $right){
      $data =~ s/<;!--$type(.+)$type-->;//gs;
   }else{
      $data =~ s/<;!--$type(.+)$type-->;/$1/gs;
   }
   return $data;    
}

$split  = ReplaceInComment($split, "P", $uploadpassword, "");
$split3 = ReplaceInComment($split3, "DP", $deletepassword, "");
$split  = ReplaceInComment($split3, "N", $renamefile, "1");
$split  = ReplaceInComment($split3, "D", $description, "1");