perl 强制输出% 百分号

#我的问题是，原文件中含有%，perl处理后，需要将源文件的百分号原样输出

#如果不做处理，% b， % n，% t这些都会被认为成格式符或功能性字符

#简单处理如下

while (<IN>){

chomp;

~s/\%/\%\%/g;

$line=$_;

printf OUT "$line\n";

}