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