在linux下使用命令file 文件名，会显示文件是否CR-LF风格（windows风格）。

如果想要保存得到的文件每行都以CR-LF结尾，就得在该文件时使用特殊层: open BEDROCK,'>:crlf', $file_name;

不过注意，如果原本就是CR-LF风格的话，转换后会多出一个换行符。

读取DOS风格的文件时也可以这样转换: open BEDROCK,'<:crlf', $file_name

读取文件的时候，Perl会把所有CR-LF都转换为Unix风格的换行符。

另外一种方式是使用dos2unit命令先处理文件之后再交由perl处理，也不会出问题。