[root@devel3 root]# cat bad.pl
#!/usr/bin/perl
print "Hello Errors!\n"

[root@devel3 root]# perl -pe 's/\015/^M/' bad.pl
#!/usr/bin/perl^M
print "Hello Errors!\n"^M

[root@devel3 root]# ./bad.pl
: bad interpreter: No such file or directory

[root@devel3 root]# perl -pi -e 's/\015//' bad.pl
[root@devel3 root]# ./bad.pl
Hello Errors!

[root@devel3 root]# perl -pe 's/\015/^M/' bad.pl
#!/usr/bin/perl
print "Hello Errors!"

[root@devel3 root]#