Удалить \r на Perl

[asmlover]

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;

}

не реботает

 

[asmlover]

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

 

[????]

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

а так?

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

 

[FUKS]

s/\r//g;

 

[Pompei]

s/\r//gm;