system qq[perl -i.bak -lpe \'tr/\r//d\' ${file1}];