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;

}

не реботает

 

ps Скрипт запускаю под виндой

 

Для: asmlover
$_ =~ s/"\r"//g; => $_ =~ s/\\r//g;

а так?

З.Ы. Проверить не могу, но должно работать.

 

s/\r//g;

 

s/\r//gm;