perl 強制輸出% 百分号

#我的問題是，原檔案中含有%，perl處理後，需要将源檔案的百分号原樣輸出

#如果不做處理，% b， % n，% t這些都會被認為成格式符或功能性字元

#簡單處理如下

while (<IN>){

chomp;

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

$line=$_;

printf OUT "$line\n";

}