$file =~ s/\r$//;

and

$file =~ s/\n$//;