in reply to trying to pass variable through system call in windows

I don't think you need the double quotes. Try: 
system qq[perl -i.bak -lpe \'tr/\r//d\' ${file1}];

[download]

See also:

In Section Seekers of Perl Wisdom