sub ClearInternalComments                  
{
   my @out;
    open (HANDLE,"<$_[0]");
    while (<HANDLE>){
 $_ =~ s/"\r"//g;
     push @out, $_;
 print $_; #debug    
    print HANDLE1 $_;
    }
    close HANDLE;
    open (HANDLE,">$_[0]");
    print HANDLE @out;
    close HANDLE;

}