How to replace ^M with a new line in perl

Question

My test file has \"n\" number of lines and between each line there is a ^M, which in turn makes it one big string. The code I am working with opens said file and should par

Answer 1

perl -MExtUtils::Command -e dos2unix file